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Das Amiga-Betriebssystem Exec 


1 Organisation der Daten 

Im AMIGA-Betriebssystem gibt es (neben den speziellen Hardware-Registern) nur 
eine einzige feste Adresse: 4. 

Alle Systemzugriffe auf Datenstrukturen gehen im Prinzip von dieser Adresse aus. 
Der Vorteil dieses Verfahrens ist, daß die Entwicklung des Systems keinerlei Ein¬ 
schränkungen durch feste Tabellen usw. unterliegt; der Preis für diesen Vorteil ist ein 
erhöhter Zeitaufwand für die Systemroutinen, was einen entsprechend schnellen Pro¬ 
zessor voraussetzt. 

In den Speicherzellen 4 bis 7 steht die Basisadresse der Exec-Library, die auch als 
SysBase bezeichnet wird. Diese Adresse wird bei der Systeminitialisierung in das Re¬ 
gister A6 übernommen. Alle Zugriffe auf die Exec-Routinen und den Exec-Datenbe- 
reich erfolgen dann relativ zu dieser Adresse mittels der Adressierung ’0ffset(A6)’, 
und zwar wird mit negativen Offsets auf die Exec-Sprungliste und mit positiven 
Offsets auf die Exec-Daten zugegriffen. (Diese Anordnung sichert die 
Aufwärtskompatibilität: Sowohl die Sprungliste als auch der Datenbereich können 
erweitert werden, ohne daß sich an den alten Offsets etwas ändert.) 

In der hier beschriebenen Exec-Version gelten folgende Eckdaten: 


ohne FAST NEHORY mit FAST MEMORY 


SysBase 

Exec-Sprungliste 

Exec-Datenbereich 


$676 

$400 - $675 
$676 - $8C1 


$000276 

$000000 - $000275 
$000276 - $000401 
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In diesem kleinen Bereich können natürlich nicht alle Daten untergebracht werden, 
die Exec für seine umfangreichen Aufgaben benötigt. Die Menge dieser Daten liegt 
auch nicht fest, sondern ist dynamisch veränderlich je nach der Zahl und Komplexität 
der Programme (Tasks), die gleichzeitig verwaltet werden müssen. Der Zugriff auf 
diese vielfältigen Datenstrukturen erfolgt über sogenannte Listen (Lists), die die 
Strukturen miteinander und mit dem Listenkopf (List Header) verbinden. Dabei wer¬ 
den Strukturen gleicher Art jeweils in einer eigenen Liste zusammengefaßt; so gibt es 
Z.B. eine Speicherliste (Free List) für die freien Speicherbereiche, eine Programm- 
Warteliste (TaskWait List) für Programme, die den Prozessor im Moment nicht benö¬ 
tigen, weil sie auf eine Eingabe oder ein anderes Ereignis warten, eine 
Programmbibliotheksliste (Library List), in der alle verfügbaren Bibliotheken 
(Grahics Library, DOS Library u.a.) versammelt sind, und viele andere mehr. Die 
Zahl der Listen ist nicht beschränkt, und gelegentlich wird von Exec oder auch von 
einem Programm vorübergehend eine Liste angelegt, um bestimmte Daten zu organi¬ 
sieren. 

Jede Liste besteht aus Knoten (Nodes), die am Anfang der jeweiligen Datenstruktur 
stehen. Ein Knoten besitzt folgende Gestalt: 


DC.L 

ln_Succ 

Zeiger auf den Nachfolger-Knoten 

DC.L 

ln_Pred 

Zeiger auf den Vorgänger-Knoten 

DC.B 

ln_Type 

Knotentyp (Art der Datenstruktur) 

DC.B 

ln_Prl 

Priorität (bestiBBt Platz ln der Liste) 

DC.L 

ln_NaBe 

Zeiger auf Knotennaaen 


Folgende Knotentypen werden von der vorliegenden Exec-Version verwendet: 


0 

nt_ünknown 

8 

nt_Resource 

1 

nt_Task 

9 

nt_Library 

2 

nt_Interrupt 

10 

nt_NeBory 

3 

nt_Devlce 

11 

nt_SoftInt 

4 

nt_nsgPort 

12 

nt_Font 

5 

nt_Message 

13 

nt_Process 

6 

nt_FreeHsg 

14 

nt_SeBaphore 

7 

nt_Replyt1sg 

15 

nt_SlgnalSeB 
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Der Zweck der entsprechenden Datenstrukturen wird in den folgenden Abschnitten 
besprochen. Die Priorität spielt nur bei wenigen Knotentypen eine Rolle und hat 
sonst im allgemeinen den Wert 0. Der Knotenname wird von Exec oder anderen Pro¬ 
grammen zur Identifizierung des Knotens und der mit ihm verbundenen Daten¬ 
struktur benutzt; er muß mit Kode 0 abgeschlossen sein. 

Jede Liste hat einen Anfangs- und einen Endknoten. Im Anfangsknoten ist ln_Pred = 
0, im Endknoten ist ln_Succ = 0. Diese beiden Knoten werden nicht zur Kennzeich¬ 
nung von Datenstrukturen benützt; sie werden vielmehr miteinander kombiniert und 
bilden dann den Listenkopf (List Header): 


DC.L 

lh_Head 

ln_Succ la Anfangsknoten 

DC.L 

lh_Tall - 0 

ln_Pred im Anfangs-, ln_Succ im Endknoten 

DC.L 

lh_TallPred 

ln_Pred im Endknoten 

DC.B 

lh_Type 

Listentyp (= Typ der Knoten) 

DC.B 

lh_Pad 

FQllbyte 


Eine Liste ist durch den IVp bestimmt und hat keinen Namen. Das letzte Byte 
lh_Pad ist nötig, um die Länge des Headers geradzahlig zu machen. Eine leere Liste 
hat außer dem Header keine weiteren Knoten; daher zeigt lh_Head auf lh_Tail und 
lh_TailPred auf lh_Head. Wird eine Liste neu angelegt, so ist der Header in dieser 
Weise zu initialisieren (vgl. z.B. Listing 02BE-02C6). 

Ein Knoten wird in eine Liste eingefügt, indem ln_Succ im Vorgängerknoten und 
ln_Pred im Nachfolgerknoten auf den einzufügenden Knoten und ln_Succ bzw. In- 
Pred im einzufügenden Knoten auf den Nachfolger- bzw. den Vorgängerknoten ge¬ 
richtet werden. Wo der einzufügende Knoten im Speicher steht, ist dabei völlig be¬ 
langlos. Für den Zugriff auf einen bestimmten Knoten geht Exec (oder auch ein an¬ 
deres Programm) immer vom List Header aus und sucht den Knoten mittels der Rou¬ 
tine FindName. 

Ein Knoten wird aus einer Liste entfernt, indem ln_Succ im Vorgängerknoten auf 
den Nachfolgerknoten und ln_Pred im Nachfolgerknoten auf den Vorgängerknoten 
gerichtet wird. Der Knoten selbst wird jedoch nicht gelöscht, der von ihm belegte 
Speicherplatz nicht freigegeben. 

Die von Exec unmittelbar benötigten Listen sind mit ihren List Headers im Exec-Da- 
tenbereich verankert: 
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Offset 

Typ 

Bezeichnung 



$142 

10 

Free List 



$150 

8 

Resource List 



$15E 

5 

Device List 



$16C 

2 

Interrupt List 



$17A 

9 

Library List 



$188 

4 

Port List 



$196 

1 

TaskReady List 



$1A4 

1 

TaskUait List 



$1B2 

11 

Soft Interrupt 

List 

(Prlorlty -32) 

$1C2 

11 

Soft Interrupt 

List 

(Prlorlty -16) 

$1D2 

11 

Soft Interrupt 

List 

(Prlorlty 0) 

$1E2 

11 

Soft Interrupt 

List 

(Prlorlty 16) 

$1F2 

11 

Soft Interrupt 

List 

(Prlorlty 32) 

$214 

15 

Semaphore List 




Die Bedeutung der an den Knoten dieser Listen hängenden Datenstrukturen wird in 
den nachfolgenden Abschnitten erläutert. 

Zur Verwaltung der Listen stellt Exec eine Reihe von Routinen zur Verfügung, die 
über die Exec-Sprungliste aufgerufen werden können. In der folgenden Zusammen¬ 
stellung ist außer dem Offset in der Sprungliste auch die absolute Adresse angegeben. 
Diese Angabe dient nur dazu, die Routine im Listing schnell zu finden; die absolute 
Adresse sollte nie in einem Aufiruf verwendet werden, da sie schon in der nächsten 
Exec-Version wahrscheinlich nicht mehr stimmt! 


Routlnennane Offset Adresse Beschreibung 


Insert -$0EA $FC15AC Knoten ln Liste elnfOgen 

Eingabe: A0 -> List Header 

AI -> Einzufügender Knoten 

A2 -> Knoten vor der Einfügestelle 


AddHead -$0F0 $FC15D8 Knoten am Anfang der Liste elnfügen 

Eingabe: A0 -> List Header 

AI -> Einzufügender Knoten 
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AddTall -$0F6 $FC15E8 Knoten an Ende der Liste elnfQgen 

Eingabe: A0 -> List Header 

A1 -> Einzufügender Knoten 

Reaove -$0FC $FC1600 Knoten aus Liste entfernen 

Eingabe: AI -> Zu entfernender Knoten 

ReaHead -$102 $FC160E Knoten aa Anfang der Liste entfernen 

Eingabe: A0 -> List Header 
Ausgabe: D0 -> Entfernter Knoten 

D0 =■ 0, falls Liste leer war 

ReaTail -$108 $FC161E Knoten aa Ende der Liste entfernen 

Eingabe: A0 -> List Header 
Ausgabe: D0 -> Entfernter Knoten 

D0 • 0, falls Liste leer war 

Enqueue -$10E $FC1654 Knoten ln eine nach Prioritäten sortierte 

Liste einfügen, und zwar unalttelbar vor 
dea ersten Knoten alt niedrigerer Priorität 
Eingabe: A0 -> List Header 

AI -> Einzufügender Knoten 

FlndNaae -$114 $FC165A Knoten alt vorgegebenea Naaen suchen 

Eingabe: A0 -> List Header oder letzter 
Knoten vor Suchbeginn 
AI -> Naae alt Endekode 0 
Ausgabe: D0 -> Knoten alt vorgegebenea Naaen 
D0 ■ 0, falls nicht gefunden 
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2 Speicherverwaltung 

Der Schreib-Lese-Speicher (RAM) des AMIGA zerfällt in zwei grundsätzlich ver¬ 
schiedene Teile: 

a) das CHIP MEMORY liegt in den untersten 512 kBytes des Adreßraumes, um¬ 
faßt also die Adressen $0 - $7FFFF (0 - 524287). Die Spezialchips, die für Gra¬ 
phik, Ton, Disk-Kontrolle u.a. zuständig sind, können nur auf diesen Bereich zu¬ 
greifen. 

b) Als FAST MEMORY wird jede über den Bereich des CHIP MEMORY 
hinausgehende Speichererweiterung bezeichnet, und zwar deshalb, weil der 
Hauptprozessor 68000 auf diesen Bereich ohne Konkurrenz durch andere Bau¬ 
steine und daher ungebremst zugreifen kann. 

In der Grundausstattung verfügt der AMIGA 1000 nur über das CHIP MEMORY; 
durch die vorn im Gehäuse einzusteckende Speicherkassette wird das CHIP ME¬ 
MORY um 256 kByte auf seine Maximalgröße erweitert. 

Der Adreßbereich SCOOOOO - SDBFFFF wird bei der Initialisierung von Exec auf das 
Vorhandensein von RAM-Chips geprüft und gegebenenfalls als FAST MEMORY in 
die Speicherverwaltung einbezogen. Falls in diesem oberen Bereich RAM-Speicher 
gefunden wird, legt Exec seinen Datenbereich dort an. Dies ist im Amiga 2000 reali¬ 
siert: Dort sind 512 kByte FAST MEMORY im Bereich SCOOOOO bis $C7FFFF ein¬ 
gebaut. 

Zu jedem der beiden RAM-Bereiche, CHIP MEMORY und FAST MEMORY, ge¬ 
hört ein MEMORY REGION HEADER (MRH); ist kein FAST MEMORY vor¬ 
handen, so gibt es nur den MRH des CHIP MEMORY. Dieser steht dann unmittel¬ 
bar hinter dem Exec-Datenbereich, wo der freie Teil des CHIP MEMORY beginnt 
(Offset $24C). Jeder MRH enthält am Anfang einen Knoten. Diese Knoten gehören 
zur FREE LIST, deren Header im Exec-Datenbereich bei Offset $142 steht. 
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Ein MRH hat folgende Struktur: 


DC.L 

mh_Succ 

Zeiger auf nächsten MRH 


DC.L 

mh_Pred 

Zeiger auf vorhergehenden MRH 


DC.B 

mh_Type 

Knotentyp • 10 


DC.B 

mh_Prl 

Priorität (CHIP: -10, FAST: 0) 


DC.L 

mh_Name 

Zeiger auf Namen (Chip Memory / Fast Memory 

DC.U 

mh_Attrlbutes 

Speichertyp 


DC.L 

inh_Flrst 

Zeiger auf ersten freien Block 

(Chunk) 

DC.L 

iDh_Louer 

Zeiger auf Anfang der Region 


DC.L 

mh_Upper 

Zeiger auf Ende der Region 


DC.L 

mh_Free 

Gesamtzahl der freien Bytes ln 

der Region 


Der Speichertyp (mh_Attributes) wird aus folgenden Bitwerten durch Addition 
kombiniert: 


PUBLIC: 1 
CHIP: 2 
FAST: 4 


Bei der Initialisierung des MRH wird mh_Upper mit der ersten Adresse hinter der 
Region, mh_Lower und mh_First mit der ersten durch 8 teilbaren Adresse hinter 
dem MRH belegt. Der Bereich von mh_First bis mh_Upper ist ein einziger großer 
freier Speicherblock (Chunk). Am Anfang dieses Blocks steht ein Blockvorspann 
(Chunk Header): 


DC.L i!ic_Next Zeiger auf den nächsten freien Block 

DC.L mc_Bytes Anzahl der Bytes ln diesem freien Block 

Im letzten (oder einzigen) Chunk Header ist mc_Next = 0. Bei einer Speicheranfor¬ 
derung durch das System wird nun der erste Block, der genügend freie Bytes enthält, 
vom Anfang her reserviert; dabei wird auch der Vorspann einbezogen. Unmittelbar 
hinter dem reservierten Teil wird ein neuer, korrigierter Vorspann angelegt, es sei 
denn, die Anforderung entspricht genau der Blocklänge; in diesem Fall wird, wenn es 
nicht der letzte Block war, einfach der nächste Vorspann korrigiert. Außerdem wird 
mc_Next im vorausgehenden Block (bzw. beim ersten Block mh_First) korrigiert. 
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Die Freigabe eines belegten Speicherblocks erfolgt in analoger Weise. Damit bei die¬ 
sem Verfahren nicht ein Vorspann teilweise überschrieben werden kann, sorgt das Sy¬ 
stem dafür, daß jede Speicherreservierung und -freigabe stets an einer durch 8 teilba¬ 
ren Adresse beginnt und endet. 

Diese Gesamt-Speicherliste gestattet es dem System zwar jederzeit festzustellen, wel¬ 
che Speicherzellen belegt und welche frei sind. Es geht aber nicht aus ihr hervor, von 
welchen Programmen die belegten Speicherblöcke reserviert wurden, denn die re¬ 
servierten Bereiche haben kein "Etikett". 

Es ist deshalb wichtig, daß die einzelnen Programme (Tasks) selbst dafür sorgen, daß 
belegter Speicher wieder freigegeben wird, wenn er nicht mehr benötigt wird, insbe¬ 
sondere dann, wenn das Programm seine Aufgabe erfüllt hat und aus dem Speicher 
entfernt wird. Zu diesem Zweck verwaltet jedes Programm eine eigene Speicherliste 
MEMORY LIST, deren List Header im Task-Kontrollblock (vgl. Abschnitt 4) unter¬ 
gebracht ist. Die zugehörigen Listenelemente sind sog. ML-Strukturen von folgender 
Gestalt: 


DC.L 

ml_Succ 

Zeiger auf den nächsten Knoten 

DC.L 

iiil_Pred 

Zeiger auf den vorhergehenden Knoten 

DC.B 

inl_Type 

Knotentyp • 10 

DC.B 

iiil_Prl 

Priorität (l.allg. = 0) 

DC.L 

iiil_Nanie 

Zeiger auf Namen oder 0 

DC.U 

nil_NuoiEntrles 

Zahl der folgenden Einträge (ME) 

DC.L 

iie_Addr 

Anfang des Spelcherblocks 

DC.L 

nie_Length 

Länge des Speicherblocks 


Die beiden letzten Zeilen bilden einen "Speicher-Eintrag" (Memory Entry, ME). Jede 
ML-Struktur kann beliebig viele solche Einträge enthalten; ihre Anzahl wird durch 
ml_NumEntries angegeben. Ein Programm muß also nicht einen zusammenhängen¬ 
den Speicherblock reservieren lassen, was bei der beschriebenen Art der Speicherver¬ 
waltung leicht erfolglos sein kann, sondern es kann seinen Speicherbedarf auf kleinere 
Blöcke, U.U. in verschiedenen Regionen, aufteilen. Für die Speicheranforderung wird 
ebenfalls die ML-Struktur verwendet, dabei wird statt me_Addr (die Adresse wird 
erst durch die Reservierungsroutine geliefert) zunächst der geforderte Speichertyp 
me_Reqs eingetragen. 

Die möglichen Typen sind - wie im MRH - PUBLIC, CHIP, FAST; außerdem kom¬ 
men noch die Anforderungen CLEAR (Bit 16) und LARGEST (Bit 17) hinzu: 
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CLEAR bewirkt, daß der reservierte Speicherblock gelöscht (d.h. mit Kode 0 gefüllt) 
wird, LARGEST bewirkt, daß die Routine AvailMem (s.u.) den größten noch freien 
Speicherblock in der angegebenen Region ermittelt. Wird keine bestimmte Speicher¬ 
region angefordert, so versucht Exec zunächst, einen Bereich im FAST MEMORY 
zuzuweisen (dies ergibt sich aus der Priorität im Memory Region Header!) 

Wird ein Programm auf ordentliche Weise abgeschlossen, z.B. mittels der Systemrou¬ 
tine RemTask, so werden alle von dem Programm belegten Speicherblöcke anhand 
der ML-Liste, deren List Header im Task-Kontrollblock steht, wieder freigegeben. 

Für die Speicherverwaltung stellt Exec folgende Routinen zur Verfügung; 


Routinennaae Offset Adresse Beschreibung 


Allocate -$0BA $FC169C Speicherblock reservieren 

Eingabe: A0 -> Meaory Region Header 
D0 > Blocklänge ln Bytes 
Ausgabe: D0 -> Anfang des reservierten Blocks 
D0 « 0, falls erfolglos 

AllocMea -$0C6 $FC1794 Speicherblock reservieren 

Eingabe: D0 - Blocklänge ln Bytes 

Dl - Typ (PUBLIC,CHIP.FAST.CLEAR) 
Ausgabe: vle Allocate. 

AllocEntry -$0DE $FC191E Spelcherblbcke geaäe ML-Struktur reservieren 

Eingabe: A0 -> NL-Struktur (Anforderung) 
Ausgabe: D0 -> ML-Struktur (Reservierung) 

D0 - Typ alt Bit 51 gesetzt, falls 
erfolglos; ln diesem Fall wird 
kein Speicher belegt. 

AllocAbs -$0CC $FC1840 Speicherblock ab gegebener Adresse reservieren 

Eingabe: AI -> Anfang des Speicherblocks 
D0 ■■ Blocklänge in Bytes 
Ausgabe: D0 -> Anfang des reservierten Blocks 
D0 * 0, falls erfolglos 
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Deallocate -$0C0 $FC1704 Speicherblock freigeben 

Eingabe: A0 -> Memory Region Header 

A1 -> Anfang des Spelcherblocks 
D0 = Blocklänge ln Bytes 

FreeMem -$0D2 $FC17F0 Spelcherblock freigeben 

Eingabe: A1 -> Anfang des Spelcherblocks 
D0 * Blocklänge ln Bytes 

FreeEntry -$0E4 $FC19AC Speicherblöcke gemäß HL-Struktur freigeben 

Eingabe: A0 -> ML-Struktur 

AvallMea -$0D8 $FC18D0 Freien Speicherplatz ermitteln 

Eingabe: Dl - Typ (PUBLIC.CHIP,FAST,URGEST) 
Ausgabe: D0 = Freier Speicherplatz 

(bei LARGEST: Im größten zusammen¬ 
hängenden Block; sonst: Insgesamt) 

TypeOfMem -$216 $FC181A Speichertyp ermitteln 

Eingabe: A1 -> Anfang eines Spelcherblocks 
Ausgabe: D0 = Speichertyp (aus MRH) 

D0 * 0, wenn nicht gefunden 

AddMemLlst -$26A $FC19EA Memory Region Header zur Free List hinzufügen 

Eingabe: A0 -> Anfang der Speicherregion 
AI -> Name der Region oder • 0 
D0 • Größe der Region ln Bytes 
Dl = Speichertyp 
D2 • Priorität 


3 Interrupt-Verwaltung 

Unterbrechungen (Interrupts) spielen in einem Multitasking-System eine besondere 
Rolle. Es ist daher notwendig, sich mit der Interrupt-Verarbeitung durch den Prozes¬ 
sor 68000 und das Betriebssystem Exec vertraut zu machen. 

Der Prozessor hat 3 Eingänge für externe Interrupts, denen drei Bits im Statusregister 
entsprechen. Sowohl der Zustand der Eingänge als auch die Statusbits lassen sich als 
Binärzahl aus dem Bereich 0 bis 7 darstellen. Jeder Zahl entspricht eine Prioritätse- 
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bene im folgenden Sinn: Wenn ein Interrupt-Signal an einer Kombination der Ein¬ 
gänge empfangen wird, die der Ebene i entspricht, so wird diese Unterbrechung vom 
Prozessor dann und nur dann zugelassen, wenn die Interrupt-Bits im Statusregister 
eine Zahl bilden, die kleiner ist als i. In diesem Fall werden die Interrupt-Bits vom 
Prozessor auf den Wert i gesetzt mit der Folge, daß während der Bearbeitung einer 
Unterbrechung nur dann eine weitere Unterbrechung angenommen wird, wenn diese 
eine höhere Priorität besitzt. Die Ebene 0 bedeutet, daß keine Unterbrechung an¬ 
gefordert, aber jede zugelassen ist; die Ebene 7 stellt insofern einen Sonderfall dar, als 
sie auch durch den Wert 7 der Statusbits nicht gesperrt werden kann: Ein Interrupt- 
Signal an allen 3 Eingängen erzeugt einen "nicht maskierbaren Interrupt" (NMI). Die 
Bearbeitung der Unterbrechung durch den Prozessor beginnt damit, daß aus der In¬ 
terrupt-Ebene die Adresse eines Interrupt-Vektors berechnet wird, der auf die Bear¬ 
beitungsroutine zeigt. Die 7 Interrupt-Vektoren stehen an folgende Adressen und ha¬ 
ben (in dieser Exec-Version) folgende Werte: 


Ebene 

Adresse 

Vektor 

1 

$064 

$FC0C52 

2 

$068 

$FC0CA6 

J 

$06C 

$FC0CD8 

4 

$070 

$FC0DJ0 

5 

$074 

$FC0DBE 

6 

$078 

$FC0E04 

7 

$07C 

$FC0E4A 


Diese kurze Beschreibung der Interrupt-Verarbeitung durch den Prozessor 68000 
kann hier genügen; genauere Einzelheiten können einem einschlägigen Prozessor- 
Handbuch entnommen werden. Für Exec reichen die 7 Interrupt-Ebenen des Prozes¬ 
sors nicht aus; sie werden deshalb gemäß folgender Tabelle auf 16 Ebenen ausge¬ 
dehnt: 
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Priorität 

Exec CPU 

Nane 

IV 

Ofs. 

Auslöser der Unterbrechung 

0 

1 

TBE 

$054 

Serieller Port: Sendepuffer leer 

1 

1 

DskBlk 

$060 

Lesen/Schreiben eines Dlsk-Blocks fertig 

2 

1 

Softint 

$06C 

Vom Programm ausgelöste Unterbrechung 

J 

2 

Ports 

$078 

I/O oder Zeitgeber (Baustein 6520A) 

4 

5 

Coper 

$084 

Spezialchip Copper 

5 

3 

VertB 

$090 

BlIdvechsel-Impuls 

6 

5 

Blit 

$09C 

Spezialchip Blltter fertig 

7 

4 

Auct2 

$0C0 

Audio-Kanal 2 

8 

4 

Aud0 

$0A8 

Audlo-Kanal 0, 

9 

4 

Aud3 

$0CC 

Audio-Kanal 5 

10 

4 

Audi 

$0B4 

Audlo-Kanal 1 

11 

5 

RBF 

$0D8 

Serieller Port: Empfangspuffer voll 

12 

5 

DskSync 

$0E4 

Vorgegebenes Byte von Disk gelesen 

15 

6 

Exter 

$0F0 

Extern, Baustein 8520B 

14 

6 

Inten 

$0FC 

Spezial (Copper) 

15 

7 

NHI 

$108 

Nicht maskierbarer Interrupt 


Die Interrupts können von Exec einzeln zugelassen oder gesperrt werden durch Set¬ 
zen oder Löschen des entsprechenden Bits im INTENA-Register (Adresse 
$DFF09A). Außerdem können durch Löschen bzw. Setzen des Bits 14 in diesem Re¬ 
gister alle Interrupts, die einzeln zugelassen sind, gemeinsam gesperrt bzw. freigege¬ 
ben werden. Wenn eine der oben genannten Quellen einen Interrupt anfordert, setzt 
sie das entsprechende Bit im INTREQ- Register (Adresse $DFF09C); in der Vertei¬ 
lungsroutine (Interrupt Händler), auf die der zur Prioritätsebene gehörende Inter¬ 
ruptvektor zeigt, prüft Exec durch Lesen des INTREQR-Registers (Adresse 
SDFFOIE), welche Quelle innerhalb dieser Ebene die Unterbrechung ausgelöst hat, 
und verzweigt dann in die entsprechende Bearbeitungsroutine (Interrupt Server). Die 
Parameter für diese Verzweigung werden aus einer Tabelle von Interrupt-Vektoren 
im Exec-Datenbereich (die nicht mit den oben genannten Vektoren für die Prozessor- 
Interrupts verwechselt werden dürfen) entnommen; für jede der 15 Interrupt-Arten 
enthält diese Tabelle 3 Adressen: iv_Data zeigt auf einen Bereich mit Daten, 
iv_Code zeigt auf die Bearbeitungsroutine und iv_Node auf einen Knoten. Die 
Qffsets der Tabelleneinträge im Exec - Datenbereich sind in der obigen Tabelle unter 
IV Qfs angegeben. Es ist zu bemerken, daß diese Tabelle nicht für alle Arten von 
Interrupts bei der Exec-Initialisierung bereits eingerichtet wird; vielmehr werden 
zunächst nur die Interrupt-Server für die Interrupts 3, 4, 5, 13 und 15 in folgender 
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Weise initialisiert; Es wird je ein List Header für eine Liste von Interrupt Servers 
erzeugt, dann wird iv_Data auf den List Header und iv_Code auf eine spezielle 
Interrupt-Routine gerichtet (Adresse $FC12FC), die von dem jeweiligen List Header 
ausgehend die einzelnen Interrupt Server in der Liste nacheinander aufruft. 

Manche Systemroutinen dürfen nicht unterbrochen werden. Von solchen Routinen 
müssen deshalb die Unterbrechungen durch entsprechendes Schreiben in das IN- 
TENA-Register gesperrt und später wieder freigegeben werden. Hier ist jedoch ein 
zusätzlicher Mechanismus erforderlich, der eine vorzeitige Freigabe verhindert: Wenn 
eine Routine die Interrupts sperrt und dann eine andere Routine aufruft, die eben¬ 
falls die Interrupts sperrt, so darf die zweite Routine die Interrupts nicht wieder frei¬ 
geben, denn sie müssen ja bis zum Ende der ersten Routine gesperrt bleiben! Eine 
solche "Verschachtelung" kann über mehrere Ebenen gehen, dabei muß in jedem Fall 
dafür gesorgt werden, daß die Freigabe der Unterbrechungen nur durch die Routine 
vorgenommen werden kann, die sie als erste gesperrt hat. Dies geschieht in der Weise, 
daß bei jeder Sperrung ein Zähler, dessen Anfangswert -1 ist, um 1 erhöht und bei je¬ 
der Freigabe um 1 erniedrigt wird. Erst dann, wenn der Zählerinhalt wieder -1 ist, 
werden die Interrupts durch Schreiben in das INTENA-Register tatsächlich wieder 
freigegeben. Der Zähler heißt IDNestCnt (Interrupt Disable Nesting Counter = Un- 
terbrechungssperren-Verschachtelungszähler), ist 1 Byte lang und hat im Exec-Da- 
tenbereich den Offset $126. 

Eine besondere Art von Unterbrechung stellen die Software Interrupts dar: Sie wer¬ 
den nicht von einem externen Signal, sondern vom Programm selbst ausgelöst, indem 
das Bit 3 des INTREQ-Registers gesetzt wird. Dies erzeugt einen Interrupt der Priori¬ 
tät 1, dessen Abwicklung dann wie oben beschrieben abläuft. Voraussetzung ist, daß 
vorher ein entsprechender Interrupt Server bereitgestellt wurde und in eine der 5 
Softlnt-Listen, deren List Header im Exec-Datenbereich ab Offset $1B2 stehen, ein 
Knoten eingefügt wurde, an dem ein iv_Data- und ein iv_Code-Vektor hängt. Der 
iv_Code-Vektor muß auf den Interrupt Server gerichtet sein. 

Das Betriebssystem stellt folgende Routinen zur Interrupt-Verwaltung bereit: 


Routlnennane Offset Adresse Beschreibung 


SetlntVector -$0A2 $FC118E System-Interruptvektor ändern 

Eingabe: D0 = Int-Nunmer (0.15) 

AI -> Knoten Bit lv_Data u. iv_Code 
Ausgabe: D0 -> alter Knoten 
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AddlntServer 

-$0A8 

$FC11D4 

Interrupt Server Routine hinzufügen 

Eingabe: D0 ■= Int-Nummer (5,4,5,15,15) 

AI -> Knoten mit lv_Data u. iv_Cod( 

ReoIntServer 

-$0AE 

$FC12H 

Interrupt Server Routine entfernen 

Eingabe: D0 = Int-Nummer 

AI -> Knoten des Interrupt Servers 

Cause 

-$0B4 

$FC1J20 

Software-Interrupt erzeugen 

Eingabe: AI -> Knoten des Interrupt Servers 

Disable 

-$078 

$FC15EC 

Interrupts sperren und IDNestCnt erhöhen 

Enable 

-$07E 

SFCIJFA 

IDNestCnt erniedrigen und Interrupts frei¬ 
geben, falls IDNestCnt ■= -1 


4 Tasks 

Als Task wird ein Programm mit den zugehörigen Datenbereichen bezeichnet, das 
eine vom Anwender definierte Aufgabe bearbeitet. Alle Daten, die Exec zur Verwal¬ 
tung der Task benötigt, sind im Task-Kontrollblock (TC) zusammengefaßt: 



struct 

tc_Node 

/h 

DC.B 

tc_Flags 


DC.B 

tc_State 


DC.B 

tc_IDNestCnt 


DC.B 

tc_TDNestCnt 

i4 

DC.L 

tc_SlgAlloc 


DC.L 

tc_SlgMalt 


DC.L 

tc_SlgRecvd 

yi 

DC.L 

tc_SigExcept 


DC.U 

tc_TrapAlloc 


DC.U 

tc_TrapAbIe 

n 

DC.L 

tc_ExceptData 

Hl 

DC.L 

tc_ExceptCode 


DC.L 

tc_TrapData 


DC.L 

tc_TrapCode 


Knoten 

Verschiedene Flagbits 

Status (Added,Run,Ready,Uait,Except,Removed) 

Int-Dlsable Verschachtelungsebene 

Taskwechsel-Sperre Verschachtelungsebene 

Zugeordnete Signale 

Erwartete Signale 

Empfangene Signale 

Ausnahme-Signale 

Zugeordnete Traps 

Freigegebene Traps 

Zeiger auf Daten für Ausnahmebehandlung 
Zeiger auf Ausnahmeroutine 
Zeiger auf Trap-Daten 
Zeiger auf Trap-Routine 
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DC.L tc_SPReg Stack-Zeiger 

DC.L tc_SPLower Zeiger auf Stack-Untergrenze 

DC.L tc_SPUpper Zeiger auf Stack-Obergrenze 

DC.L tc_S¥ltch Zeiger auf Abgaberoutine 

DC.L tc_Launch Zeiger auf übernahmeroutlne 

struct tc_(1enEntry List Header für Task-Spelcherllste 

DC.L tc_UserData Zeiger auf Task-Daten 

Die Einträge im Task-Kontrollblock haben folgende Bedeutung: 

tc_Node Ist ein Knoten <vgl. Abschnitt 1), mit dem die Task ln 

eine von zwei Listen eingereiht werden kann: Die Ready-Llste 
enthält alle Tasks, nach Priorität geordnet, die bereit sind, 
den Prozessor zu Übernehmen, die Ualt-Llste enthält diejenigen 
Tasks, die zur Zelt "schlafen", well sie auf ein Signal von 
einer anderen Task, z.B. einem Gerätetreiber, warten. 

tc_Flags enthält verschiedene Flagblts, von denen Exec zur Zelt nur 
folgende benützt: 

Bit 5 tb_Except Task bearbeitet Ausnahme 

Bit 6 tb_Swltch tc_Swltch zeigt auf Swltch-Routlne 

(Aufruf bei Abgabe des Prozessors) 

Bit 7 tb_Launch tc_Launch zeigt auf Launch-Routlne 

(Aufruf bei Übernahme des Prozessors) 

Bit 0 tb_ProcTlme diese beiden Flagblts sind für 

Bit 4 tb_StackChk künftige Erweiterungen reserviert 

tc_State reflektiert den Task-Zustand und kann folgende Werte annehmen: 

1 ts_Added Task wurde dem System übergeben 

2 ts_Run Task Ist aktiv 

3 ts_Ready Task bereit, aber nicht aktiv 

4 ts_Halt Task wartet 

5 ts_Except Task bearbeitet Ausnahme 

6 ts_Removed Task nicht ln Ready- oder Halt-Liste 
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tc_IDNestCnt und tc_TDNestCnt speichern die aktuellen Werte der Verschach¬ 
telungszähler, wenn die Task ln den Uartezustand geht; in 
diesem Fall werden von der Routine HAIT Interrupts und 
Taskwechsel freigegeben, damit die Zelt von anderen Tasks 
genutzt werden kann. Sobald das erwartete Signal eintrifft 
und die Task wieder "geweckt” wird, stellt Exec den ursprüng¬ 
lichen Wert der Verschachtelungszahler wieder her. 

tc_SlgAlloc enthält 52 Signalbits, die bestimmten Ereignissen zugeordnet 
werden können und bestimmte Reaktionen der Task auslSsen. 

Bits 0 bis 15 sind für Systemzwecke reserviert, Bits 16 bis 51 
können vom Anwender beliebig definiert werden. 

tc_SlgWalt enthält eine Maske derjenigen Signale, auf die die Task gerade 
wartet. 

tc_SlgRecvd Wenn die Task ein Signal empfängt, wird das entsprechende Bit 
ln diesem Doppelwort gesetzt. 

tc_SlgExcept enthält diejenigen Signalbits, die bei Empfang eine Ausnahme¬ 
verarbeitung auslösen (vgl. Abschnitt 6). 

tc_TrapAlloc und tc_TrapAble unterstützen die Behandlung von Prozessor- 
Ausnahmen durch die Task (vgl. Abschnitt 6). 

tc_ExceptData und tc_ExceptCode zeigen auf einen Datenbereich und eine 

Routine, die für die Verarbeitung einer Task-Ausnahme benötigt 
werden. 

tc_TrapData und tc_TrapCode zeigen auf einen Datenbereich und eine Routine, 
die für die Verarbeitung einer Prozessor-Ausnahme benötigt 
werden. 

tc_SPReg dient zur Aufbewahrung des Task-Stackzelgers beim Taskwechsel. 

Bel der Einrichtung der Task ist diese Variable mit dem Anfangs¬ 
wert des Stackzeigers zu initialisieren 

tc_SPLower und tc_SPUpper enthalten die Unter- und Obergrenze des Task- 
Stacks. Die Werte sind bei der Initialisierung einzutragen. 
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tc_Swltch und tc_Launch dienen dazu, besondere Routinen für die Abgabe bzw. 

Qbernahae des Prozessors bela Taskvechsel aufzurufen. Dies 
geschieht Jedoch nur, wenn die entsprechenden Bits ln tc_Flags 
gesetzt sind. 

tc_Me»Entry Ist der List Header der Spelcherllste, ln der die von der Task 
belegten Speicherbereiche zusanBengefaet sind. Hegen der 
Einzelheiten wird auf Abschnitt 2 verwiesen. 

tc_UserData wird vom System nicht benützt und kann von der Task selbst 
nach Belieben verwendet werden. 

Für das Hinzufügen, Entfernen und Suchen einer Task stellt Exec folgende Routinen 
bereit: 


Routlnenname Offset Adresse Beschreibung 


AddTask -$11A $FC1C48 Eine Task dem System hinzufügen 

Eingabe: AI -> Task-Kontrollblock 
A2 -> Programm-Anfang 
AJ -> Abschlue-Routlne 

RemTask -$120 $FC1CF4 Task aus dem System entfernen 

Eingabe: AI -> Task-Kontrollblock 

FlndTask -$126 $FC1D74 Task suchen 

Eingabe: AI -> Name der gesuchten Task 
AI - 0: Laufende Task suchen 
Ausgabe: D0 -> Task-Kontrollblock 

D0 - 0: Task nicht gefunden 
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5 Multitasking 

Multitasking bedeutet, daß im Amiga mehrere Tasks "gleichzeitig" laufen können. 
Dabei ist "gleichzeitig" nicht wörtlich zu nehmen: Der Prozessor kann immer nur an 
einer Task arbeiten, er kann aber im raschen zeitlichen Wechsel mehrere Tasks be¬ 
dienen. Wenn eine Task den Prozessor verliert, werden alle Prozessor-Register im 
Task-Stack und alle sonstigen wichtigen Daten im Task-Kontrollblock abgespeichert; 
wenn der Prozessor der Task wieder zur Verfügung steht, nimmt er die Arbeit genau 
an der Stelle wieder auf, wo er sie abgebrochen hat. Der Taskwechsel geschieht in al¬ 
ler Regel während eines Interrupts: Alle Interrupt-Verteilerroutinen (Interrupt 
Händler) für die Prioritätsebenen 1 bis 6 münden in die Routine Exitlntr. Dort wird 
geprüft, ob ein Taskwechsel ansteht und ob er zugelassen ist. Ist dies der Fall, so wird 
die Routine Schedule aufgerufen; diese prüft, ob eine der folgenden Voraussetzungen 
erfüllt ist: 

1. eine Task mit gleicher oder höherer Priorität wurde in die Ready-Liste eingefügt, 

2. eine Task mit gleicher Priorität wartet in der Ready-Liste auf den Prozessor und 
die laufende Task hat ihr Zeitquantum verbraucht. 

Ist dies der Fall, so wird die Routine Switch aufgerufen. Sie beendet die Arbeit des 
Prozessors an der laufenden Task, indem sie alle wichtigen Daten im Task-Kontroll- 
block abspeichert und, falls eine besondere Routine zu bearbeiten ist, auf die tc- 
Switch zeigt, diese aufruft. Anschließend wird die Routine Dispatch gerufen, die die 
nächste Task an den Prozessor übergibt. Ein Taskwechsel kann von der laufenden 
Task selbst ausgelöst werden, wenn sie auf ein Signal von einer anderen Task warten 
muß. Dies geschieht durch Aufruf der Routine Wait. Diese Routine stellt die laufende 
Task in die Warteliste und bleibt in einer Warteschleife, bis das erwartete Signal ein¬ 
trifft. Bei jedem Umlauf in der Warteschleife wird die Routine Switch gerufen, die 
einen Taskwechsel auslöst. Eine Task mit niedriger Priorität erhält nur dann Prozes¬ 
sorzeit zugewiesen, wenn alle Tasks mit höherer Priorität in der Warteliste stehen. 

Falls überhaupt keine Task zur Bearbeitung ansteht, wird der Prozessor von der Rou¬ 
tine Dispatch angehalten; er stellt dann die Arbeit ein, bis er durch einen Interrupt 
wieder "geweckt" wird. 

Manche Routinen dürfen zwar durch einen Interrupt, aber nicht durch einen Task¬ 
wechsel unterbrochen werden; deshalb kann der Taskwechsel gesperrt werden. Hier 
gelten ganz entsprechende Überlegungen wie bei der Sperrung von Interrupts: Die 
Freigabe darf nur durch diejenige Routine erfolgen, die als erste gesperrt hat. Das 
Verfahren ist hier das gleich wie dort: Bei jeder Sperre wird der Zähler TDNestCnt 
(Task Disable Nesting Counter = Taskwechselsperre-Verschachtelungszähler) um 1 
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erhöht, bei jeder Freigabe um 1 erniedrigt. Erst wenn der Zähler wieder im Aus¬ 
gangszustand -1 angekommen ist, wird der Taskwechsel wirklich wieder freigegeben. 
Der Zähler ist 1 Byte lang und befindet sich im Exec-Datenbereich, Offset $127. 

Die folgende Übersicht enthält die Exec-Routinen für das Multitasking: 


Routlnenname 

Offset 

Adresse 

Beschreibung 

Exltlntr 

-$024 

$FC0E60 

Abschluß der Interrupt-Handler 

Schedule 

-$02A 

$FC0E86 

Prüfen, ob Taskuechsel notwendig 

Svltch 

-$056 

$FC0EE0 

Laufende Task von Prozessor abhängen 

Dispatch 

-$05C 

$FC0F2A 

Neue Task ln Lauf setzen 

Reschedule 

-$050 

$FC1F58 

Taskuechsel durch Softint Initiieren 

Uait 

-$15E 

$FC1ED0 

Laufende Task ln Uartezustand versetzen 

SetTaskPrl 

-$12C 

$FC1DC8 

Task-Prlorltät ändern, Reschedule 

Eingabe; AI -> Task-Kontrollblock 

D0 = Priorität 

Ausgabe: D0 = alte Priorität 

Forbid 

-$084 

$FC1F5A 

Taskuechsel sperren, TDNestCnt erhöhen 

Pernlt 

-$08A 

$FC1F60 

TDNestCnt erniedrigen, Taskuechsel freigeben 

falls TDNestCnt =■ -1 


6 Kommunikation zwischen den Tasks 

Es kommt sehr häufig vor, daß zwei Tasks miteinander kommunizieren müssen, weil 
sie gemeinsam an einer Aufgabe arbeiten. Wenn z.B. eine Task einen Text auf der 
Diskette speichern will, so wickelt sie den Verkehr mit dem Laufwerk nicht selbst ab, 
sondern ruft eine zu diesem Zweck besonders eingerichtete Task und übergibt ihr die 
notwendigen Anweisungen in Form von Parametern. Diese Task wiederum benach¬ 
richtigt die aufrufende Task, sobald der Auftrag ausgeführt ist. Dieser Nachrichten- 
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verkehr zwischen den Tasks wird über sogenannte Message Ports abgewickelt. Jeder 
Message Port ist ein Briefkasten, den eine Task eingerichtet hat, um darin Nachrich¬ 
ten empfangen zu können. Ein Message Port hat folgende Struktur: 


struct inp_Node 
DC.B np_Flags 
DC.B Bp_SlgBlt 
DC.L ap_SigTask 
struct mp_l1sgLlst 


Knoten 

Flags für Reaktion auf empfangene Nachricht 
Nummer des Slgnalblts 

Zeiger auf Task, die den Port eingerichtet hat 
List Header für alle empfangenen Nachrichten 


Eine Nachricht (Message) ist eine Datenstruktur von folgender Gestalt: 


struct mn_Node 
DC.L mn_ReplyPort 

DC.H mn_Length 


Knoten 

Zeiger auf Message Port für Antwort-Nachricht 
Länge des folgenden Inhalts der Nachricht 


Der eigentliche Inhalt der Nachricht schließt sich unmittelbar an und kann eine Folge 
von ganz beliebigen Kodes sein, deren Bedeutung natürlich der empfangenden Task 
bekannt sein muß, damit sie etwas damit anfangen kann. 

Der Nachrichtenaustausch funktioniert nun so: Die sendende Task konstruiert 
zunächst die Nachricht und ruft dann die Exec-Routine PutMsg (Put Message = 
Sende Nachricht), wobei sie ihr einen Zeiger auf die Nachricht und einen Zeiger auf 
den Port übergibt. Die Routine PutMsg hängt zuerst die Nachricht an das Ende der 
Liste, deren List Header im Message Port steht. Dann prüft sie, ob im Zeiger 
niP_SigTask etwa eine Null steht; ist dies der Fall, dann ist die Angelegenheit mit der 
Ablieferung der Nachricht erledigt; die empfangende Task wird schon irgendwann 
nachsehen, ob die Nachricht da ist. Hat der Zeiger einen von Null verschiedenen 
Wert, so werden nun die Aktions-Flags in mp_Flags geprüft; sie sind in den Bits 0 
und 1 untergebracht und haben folgende Bedeutung: 


0 pa_Slgnal 

1 pa_SoftInt 

2 pa_lgnore 
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Ist pa_Signal gesetzt, so ruft PutMsg die Routine Signal und übergibt ihr einen Z^ei- 
ger auf die Task, die den Port errichtet hat, sowie die Nummer des Signalbits 
mp_SigBit. Diese Routine nun übergibt das Signal an die Task, vergleicht es mit den 
im Task-Kontrollblock gespeicherten Signalmasken und leitet die erforderlichen Re¬ 
aktionen der Task ein. 

Ist pa_SoftInt gesetzt, so ruft PutMsg die Routine Cause und übergibt ihr den Zeiger 
auf die zugehörige Interrupt-Struktur, der sich in diesem Fall an der Stelle des Zei¬ 
gers mp_SigTask befindet. Die Routine Cause löst alsdann einen Software-Interrupt 
aus. 

Ist pa_Ignore gesetzt, so tut PutMsg gar nichts. 

Der Fall, daß die Aktion-Rags den Wert 3 haben, ist offiziell nicht vorgesehen; trotz¬ 
dem geschieht auch hier etwas: PutMsg betrachtet den Zeiger mp_SigTask als An¬ 
fangsadresse einer Routine und ruft diese auf. 

Ist die Nachricht angekommen, so wird die empfangende Task die Nachricht auswer¬ 
ten und bestimmte Konsequenzen aus ihr ziehen. Ist der Zweck der Nachricht erfüllt, 
so prüft die Task, ob eine Antwort erwartet wird; dies ist der Fall, wenn im 
mn_ReplyPort-Feld der Message nicht Null steht. Üblicherweise wird in einem sol¬ 
chen Fall die Nachricht an den ReplyPort, den die Absender-Task errichtet hat, mit 
entsprechenden Änderungen zurückgeschickt. 

Wenn ein Message Port für eine größere Zahl von Tasks nützlich ist, so wird er 
zweckmäßigerweiße publik gemacht; dies geschieht durch Einfügen in die Port Liste, 
deren List Header im Exec-Datenbereich (Offset $188) steht. Damit der Port identifi¬ 
ziert werden kann, erhält er in diesem Fall einen Namen, nach dem mittels der Rou¬ 
tine FindPort gesucht werden kann. 

Die folgende Übersicht enthält die für den Umgang mit Ports, Nachrichten und Si¬ 
gnalen verfügbaren Routinen. 


Routlnenname Offset Adresse Beschreibung 


AddPort -$162 $FC1B18 Message Port zur Systea-Portliste hlnzufOgen 

Eingabe: AI -> Port 

RenPort -$168 $FC1BJ0 Message Port aus System-PortiIste entfernen 

Eingabe: AI -> Port 
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FlndPort 


PutHsg 


Getnsg 


ReplyMsg 


AllocSlgnal 


FreeSlgnal 


Setsignal 


Signal 


HaltPort 


-$186 SFCICIE Message Port ln System-Portllste suchen 
Eingabe: AI -> Name des Ports 
Ausgabe: D0 -> Message Port 

D0 = 0, falls nicht gefunden 

-$16E $FC1B54 Message an Message Port senden 

Eingabe: A0 -> Message Port 
AI -> Message 

-$174 $FC1BAE Message vom Message Port holen 
Eingabe: A0 -> Message Port 
Ausgabe: D0 -> Erste Message ln der Liste 
D0 = 0, falls Liste leer 


-$17A $FC1BDC Message an Absender zurücksenden 
Eingabe: AI -> Message 

-$14A $FC1FC4 Slgnalblt ln tc_SlgAlloc belegen 

Eingabe: D0 = gewünschtes Bit (0.51) 

oder -1, wenn beliebig 
Ausgabe: D0 = zugeordnetes Bit (0,...,51) 
oder -1, wenn keines frei 


-$150 $FC1FFC Slgnalblt ln tc_SlgAlloc freigeben 

Eingabe: D0 ■= freizugebendes Bit (0.51) 

-$152 $FC1E22 Slgnalblts ln tc_SlgRecvd setzen 

Eingabe: D0 = neue Slgnalblts 
Dl = Signalmaske 
Ausgabe: D0 - alte Slgnalblts 


-$144 $FC1E48 Signal an Task senden 

Eingabe: AI -> Task 
D0 “ Signal 

-$180 $FC1BF6 Auf eine Nachricht an einem Port warten 
Eingabe: A0 -> Port 
Ausgabe: D0 -> Erste Message am Port 
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Eine spezielle Art von Message Ports sind die Semaphores. Mit ihrer Hilfe kann eine 
Task den Zugriff auf eine Datenstruktur durch andere Tasks zeitweilig sperren. Dies 
kann notwendig sein, wenn die Daten gerade geändert werden und ein lesender oder 
gar schreibender Zugriff während des Änderungsvorgangs unter Umständen unsin¬ 
nige Daten hervorbringen würde. Der Vorteil gegenüber der Taskwechselsperre, die 
dasselbe bewirkt, liegt darin, daß nur solche Tasks behindert werden, die tatsächlich 
auf die geschützten Daten zugreifen wollen, während im übrigen der Taskwechsel 
normal weiterläuft. Exec selbst verwendet Semaphores wegen des größeren Verwal¬ 
tungsaufwands nicht. Für die Verwendung von Semaphores gilt folgendes: Wenn eine 
Task auf einen Semaphore-geschützten Datensatz zugreifen will, schickt sie mittels 
der Routine Procure eine Anfrage (BidMessage) an den Semaphore. Ist der Zugriff 
erlaubt, erhält die Task sofort eine entsprechende Rückmeldung und der Zugriff wird 
für weitere Tasks gesperrt. Ist der Zugriff dagegen gesperrt, so wird die BidMessage 
im Message Port abgelegt (mittels PutMsg) und die Task muß an ihrem ReplyPort auf 
die Rückmeldung warten, daß der Zugriff wieder frei ist. Ist der Zugriff auf den Da¬ 
tensatz beendet, so ruft die Task die Routine Vacate; diese stellt fest, ob noch andere 
Tasks zugreifen wollen, und sendet in diesem Fall der nächsten wartenden Task die 
BidMessage an deren ReplyPort zurück. Damit nicht jedesmal die Message-Liste ge¬ 
prüft werden muß, besteht die Semaphore-Struktur aus einem Message-Port mit ei¬ 
nem angehängten Zähler (DC.W sm_Bids), der wie die bereits bekannten Ver¬ 
schachtelungszähler funktioniert: Jeder Procure-Aufruf erhöht den Zühler um 1, je¬ 
der Vacate-Aufruf erniedrigt ihn um 1; wenn keine Task wartet, steht er auf -1. Es 
gibt noch eine zweite Art von Semaphores, die Signal-Semaphores. Sie dienen dem¬ 
selben Zweck wie die vorher beschriebenen Semaphores, benützen dazu jedoch ein 
modifiziertes Verfahren, das keine Messages, sondern Signale zur Information der 
Tasks benützt. Wenn eine Task eine Zugriffsanforderung an ein Signal-Semaphore 
schickt und der Zugriff ist gesperrt, wird die Task in den Wartezustand versetzt, bis 
der Zugriff erlaubt ist. Die Task kann aber auch zunächst versuchsweise anfragen, 
wenn sie nicht riskieren will, daß sie warten muß. Auch diese Semaphores werden von 
Exec selbst nicht benützt. Ein Signal-Semaphore hat folgende Struktur: 


struct 

ss_Node 

Knoten 

DC.U 

ss_NestCount 

Zähler für Mehrfachaufruf derselben Task 

struct 

ss_UaltQueue 

List Header für Task-Harteliste 

struct 

ss_l1ultlpleLlnk 

Zur Kopplung von Semaphores 

DC.L 

ss_0wner 

Zeiger auf sperrende Task 

DC.W 

ss_QueueCount 

Wartelisten-Zähler 
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Auf eine detaillierte Beschreibung des Signal-Semaphore-Verfahrens muß hier ver¬ 
zichtet werden; im Bedarfsfall wird das Studium der zugehörigen Routinen empfoh¬ 
len, die in der folgenden Übersicht zusammengestellt sind: 

Routinennaae Offset Adresse Beschreibung 

Procure -$21C 

$FC2D5C 

Zugriffs-Anforderung an Semaphore senden 

Eingabe: A0 -> Semaphore 

AI -> BldHessage 

Ausgabe: D0 - -1, wenn Zugriff erlaubt 

D0 - 0, wenn Zugriff gesperrt 

Vacate -$222 

$FC2D72 

Semaphore wieder freigeben 

Eingabe: A0 -> Semaphore 

InltSeaaphore -$22E 

$FC2D94 

SlgnalSemaphore Initialisieren 

Eingabe: A0 -> SlgnalSemaphore 

Obtaln -$254 

Semaphore 

$FC2DB4 

Zugriffsanforderung an SlgnalSemaphore senden 
Eingabe: A0 -> SlgnalSemaphore 

Release -$25A 

Semaphore 

$FC2£04 

SlgnalSemaphore wieder freigeben 

Eingabe: A0 -> SlgnalSemaphore 

Attempt -$240 

Semaphore 

$FC2E68 

Anfrage, ob SlgnalSemaphore frei 

Eingabe: A0 -> SlgnalSemaphore 

Ausgabe: D0 - -1, falls SlgnalSemaphore frei 

D0 - 0, falls SlgnalSemaphore belegt 

Obtaln -$246 

SemaphoreLlst 

$FC2E98 

Zugriffsanforderung an Liste von Semaphores 

Eingabe: A0 -> SlgnalSemaphore-Llste 

Release -$24C 

SemaphoreLlst 

$FC2F0E 

Liste von SlgnalSemaphores freigeben 

Eingabe: A0 -> SlgnalSemaphore-Llste 

FlndSemaphore -$252 

$FC2F54 

SlgnalSemaphore suchen 

Eingabe: Al -> Namensstring 

Ausgabe: D0 -> SlgnalSemaphore 

D0 * 0, wenn nicht gefunden 
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AddSeaaphore -$2$S 


SFC2F24 Seaaphore zur Senaphore-Llste hinzufügen 
Eingabe; AI -> SlgnalSeaaphore 


RenSeaaphore -$25E 


$FC2F30 Seaaphore aus Seaaphore-Liste entfernen 
Eingabe; A1 -> SlgnalSeaaphore 


7 Ausnahme-Zustände 

Es sind zwei Arten von Ausnahmezuständen (Exceptions) zu unterscheiden: Aus¬ 
nahmen des Prozessors und Ausnahmen von Tasks. 

Ein Ausnahmezustand des Prozessors wird von verschiedenen Ereignissen herbeige¬ 
führt, Z.B. Unterbrechungen, Adreßfehlern (Wortzugriff auf eine ungerade Adresse), 
Undefinierte Befehlskodes oder auch bestimmte Prozessorbefehle (u.a. TRAP-Be- 
fehle). Jede Prozessorausnahme versetzt den Prozessor in den Supervisor-Modus und 
ruft eine Routine, deren Adresse im zugeordneten Ausnahme-Vektor im Speicherbe¬ 
reich $0 bis $400 steht. Einzelheiten können in jedem Prozessor-Handbuch nachgele¬ 
sen werden. 

Ein solcher Ausnahmezustand kann natürlich auch während der Bearbeitung einer 
Task auftreten; in diesem Kontext wird er grundsätzlich als Trap bezeichnet. Alle mit 
diesem Namen verbundenen Begriffe (tc_TrapAlloc, tc_TrapAble, tc_TrapData, 
tc_TrapCode im Task-Kontrollblock; Exec-Routinen AllocTrap, FreeTrap) beziehen 
sich auf solche Prozessor-Ausnahmen. 

Die Task-spezifischen Ausnahmezustände werden demgegenüber als Exceptions be¬ 
zeichnet. Hierzu gehören die Begriffe tc_SigExcept, tc_ExceptData und 
tc_ExceptCode im Task-Kontrollblock sowie die Routinen SetExcept und Exception. 

Von den Ausnahme-Vektoren des Prozessors werden bei der Exec-Initialisierung nur 
die mit den Nummern 2 bis 47 belegt; die übrigen werden vom System nicht benützt. 
Die zugehörigen Routinen stehen im Bereich SFCOSIA bis $FC08A8. Sie legen je¬ 
weils die zugehörige Vektornummer auf den System-Stack und rufen entweder - wenn 
die Ausnahme im Supervisor-Modus entstanden ist - sofort die Alert-Routine oder 
sonst die Task-Traproutine, auf die der Zeiger tc_TrapCode im Task-Kontrollblock 
zeigt. Hier wird bei der Initialisierung des Task-Kontrollblocks ebenfalls die Adresse 
der Alert-Routine eingetragen, damit der Aufruf nicht ins Leere läuft; falls eine be¬ 
sondere Trap-Verarbeitungsroutine von der Task bereitgestellt wird, ist deren 
Adresse hier einzutragen. Der Zeiger tc_TrapData ist vorgesehen, um auf einen von 
der Trap-Routine benötigten Datenbereich zugreifen zu können. 
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Die Variable tc_TrapAlloc dient zur Buchführung über die Verwendung der 16 Trap- 
Befehle des Prozessors, die programmgesteuerte Traps auslösen. Jedes Bit ist einem 
dieser Trap-Befehle zugeordnet; er kann durch Aufruf der Routine AllocTrap belegt 
und durch Aufruf von FreeTrap freigegeben werden. 

Die Task-spezifischen Ausnahmen (Exceptions) sind eine Art "privater Interrupt", 
der durch bestimmte Signale ausgelöst wird, die in der Variablen tc_SigEXcept durch 
je ein gesetztes Bit dargestellt sind. Empfängt eine Task ein Signal, so wird geprüft, ob 
es sich um ein Exception-Signal handelt, d.h. ob das entsprechende Bit in 
tc_SigExcept gesetzt ist. Ist dies der Fall, so wird das Except-Bit in tc_Flags gesetzt. 
Wenn die Routine Dispatch beim nächsten Taskwechsel feststellt, daß dieses Bit ge¬ 
setzt ist, ruft sie die Routine Exception, von der dann die Bearbeitung der Exception 
abgewickelt wird. 

Die allgemeine Ausnahme-Routine Alert, die immer dann aufgerufen wird, wenn 
keine spezielle Ausnahme-Verarbeitungsroutine vorhanden ist, erzeugt die bekannte 
Guru-Meldung; in den meisten Fällen kann dann nur noch ein System-Reset den 
Rechner wieder in Gang bringen. 

Es folgt eine Übersicht über die einschlägigen Routinen: 


Routlnenname Offset Adresse Beschreibung 


Alert -$06C $FC2FD6 Ausnahme-Bearbeitung mit Guru-Neldung 

Eingabe: A5 -> laufende Task 
D7 = Alert-Kode 

Ausgabe: 'Guru Meditation Number' 

Alert-Kode.Zeiger auf laufende Task 

AllocTrap -$156 SFCIFBE Trap-Befehl belegen 

Eingabe: D0 = Trap-Nummer (0.15) oder 

-1, wenn beliebig 

Ausgabe: D0 = zugewiesene Trap-Nummer oder 
-1, wenn keine Nummer frei 

FreeTrap -$15C $FC1FB4 Trap-Befehl freigeben 

Eingabe: D0 = Trap-Nummer (0.15) 
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SetExcept -$178 $FC1E18 Exceptlon-Slgnal definieren 

Eingabe: D8 • neue Exceptlon-Slgnale 
Dl > Slgnalaaske 

Ausgabe; D8 • alte Exceptlon-Slgnale 

Exceptlon -$042 $FC0FCE Task-Exceptlon-Abvlcklungsroutlne 

Eingabe; A5 -> Task 

Supervisor -$01E SFC08AA Routine alt Supervisor-Status aufrufen 

(Abschlus der Routine alt RTEi) 
Eingabe: A$ -> Routine 


8 Bibliotheken (Libraries) 

Das gesamte Betriebssystem des Amiga enthält mehr als 400 System-Routinen, die in 
Libraries zusammengefaßt sind. Mit der aktuellen Kickstart-Diskette werden folgende 
8 Libraries in den Speicher geladen: 


Naae 


exec.llbrary 
expanslon.llbrary 
raallb.llbrary 
graphlcs.llbrary 
layers.llbrary 
Intuition.llbrary 
aathffp.llbrary 
dos.llbrary 


Routinen 

Adresse 

105 

$FC0066 

25 

$FC4AFC 

11 

$FC49CC 

109 

$FC5378 

29 

$FE0D90 

78 

$FD3F5C 

16 

$FE424C 

37 

$FF425A 


Weitere Libraries befinden sich auf der System-Diskette im Directory ’libs’ und wer¬ 
den bei Bedarf nachgeladen (u.a. icon.libraiy, diskfontlibrary). Darüber hinaus hat 
der Anwender die Möglichkeit, selbst Libraries zu konstruieren (z.B. mit BASIC-Er- 
weiterungen). 

Libraries bestehen aus einem unveränderlichen und einem veränderlichen Teil. Bei 
den System-Libraries befindet sich der unveränderliche Teil im ROM bzw. im 
schreibgeschützten Kickstart-RAM, wir sprechen kurz vom Kern der Library. Bei der 
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Initialisierung der Library wird ein RAM-Bereich reserviert, in dem der veränderliche 
Teil aus Daten, die im Kern stehen, erzeugt wird. Dieser Teil besteht aus einer Struk¬ 
tur mit Knoten, einer Sprungliste und einem Datenbereich für Variablen. Der Knoten 
wird in die Library-Liste, deren List Header im Exec-Datenbereich steht (Offset 
$17A), eingegliedert. 

Der Library-Kern enthält am Anfang eine sogenannte Resident-Struktur von folgen¬ 
der Gestalt: 


DC.U 

rt_Matchword 

Erkennungsmarke: Kode $4AFC 

DC.L 

rt_Matchtag 

Zeiger auf Erkennungsmarke 

DC.L 

rt_En(isklp 

Zeiger auf Ende des Kerns 

DC.B 

rt_Flags 

Flags für Initialisierung 

DC.B 

rt_Verslon 

Versionsnummer 

DC.B 

rt_Type 

Typ (Library: 9) 

DC.B 

rt_Prl 

Priorität 

DC.L 

rt_Naine 

Zeiger auf Namen 

DC.L 

rt_IDStrlng 

Zeiger auf Identifizierungs-Text 

DC.L 

rt_Inlt 

Zeiger auf Initialisierungsdaten 


Diese Resident-Struktur wird nicht nur für Libraries, sondern für alle im Speicher 
"residenten" Module (Gerätetreiber, Resourcen u.a.) verwendet. Das am Anfang ste¬ 
hende Kodewort $4AFC ist ein "illegaler Op-Kode" des Prozessors; das nachfolgende 
Langwort enthält die Adresse dieses Kodes. Exec durchsucht bei der Initialisierung 
den gesamten in Frage kommenden Adreßbereich nach derartigen Kode-Kombina¬ 
tionen und legt sich eine Tabelle aller residenten Moduln an. Das wichtigste Initiali¬ 
sierungsflag ist das Autolnit-Flag (Bit 7 von rt_Flags). Ist es nicht gesetzt, so zeigt 
rt_Init auf eine Routine, die die Initialisierung der Library ausführt. Ist es gesetzt, so 
zeigt rt_Init auf einen Initialisierungs-Datensatz im Kern; die Initialisierung wird in 
diesem Fall von den Exec-Routinen MakeLibrary und InitStruct mit Hilfe dieser Da¬ 
ten durchgeführt. Der Kern enthält außerdem eine Tabelle, in der die Adressen aller 
Library-Routinen aufgelistet sind. Mit Hilfe dieser Tabelle wird bei der Initialisierung 
die Sprungliste generiert. Der immer im RAM stehende Teil der Library hat folgende 
Form: 
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Jap ... 

Sprungliste 

Jmp ... 




Jmp ... 


struct 

llb_Node 

Knoten 

DC.H 

lib_Flags 

Flags für Prüfsumme u.a. 

DC.W 

llb_NegSlze 

Länge des Teils vor dem Knoten (Bytes) 

DC.U 

llb_PosSl 2 e 

Länge des Teils ab dem Knoten (Bytes) 

DC.U 

llb_Version 

Versionsnummer 

DC.U 

llb_Revision 

Revisionsnummer 

DC.L 

llbJDString 

Zeiger auf Identlflcatlons-Text 

DC.L 

llb_SuB 

Prüfsumme der Sprungliste 

DC.H 

lib_OpenCnt 

Zähler für Library-Benutzer 

Beginn des Datenbereichs 


Der Knoten enthält, wie bekannt, auch einen Zeiger auf den Namen der Library, so 
daß die Library mittels der Routine FindName gesucht werden kann. Wenn eine 
Library-Routine gerufen werden soll, muß die Library geöffnet sein. Das Öffnen ge¬ 
schieht mittels der Exec-Routine OpenLibrary. Diese Routine sucht die Library und 
gibt einen Zeiger auf den Knoten zurück. Die gewünschte Funktion kann dann über 
den (negativen) Offset in der Sprungliste aufgerufen werden. Wird die Library nicht 
mehr benötigt, wird sie mittels der Routine QoseLibrary wieder geschlossen. Der 
Zähler Iib_OpenCnt wird bei jedem Öffnen um 1 erhöht und bei jedem Schließen um 
1 erniedrigt. Steht er auf Null, so ist die Library im Augenblick nicht benutzt und 
kann - z.B. wenn der Speicher knapp wird - aus dem Speicher entfernt werden. Der 
Zähler hat also eine ähnliche Funktion wie die Verschachtelungszähler für Taskwech¬ 
sel- und Interruptsperren. Die ersten 4 Positionen in der Sprungliste sind reserviert 
für Aufrufe, die in jeder Library vorhanden sein müssen: 


Offset -$006 

Open 

Library-spezlflsche Open-Routlne, 
wird von OpenLibrary gerufen 

Offset -$00C 

Close 

Library-spezlflsche Close-Routlne, 
wird von CloseLlbrary gerufen 
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Offset -$012 Expunge Routine zur Entfernung der Library bzw. 

Ihres la RAH liegenden Teils aus dea 
Speicher, wird von ReaLlbrary gerufen 

Offset -$018 Extfunct reserviert 


Die Routinen Open und Close müssen mindestens den Open-Zähler lib_OpnCnt er¬ 
höhen bzw. erniedrigen; dies ist in der Regel das einzige, was sie tun. Expunge darf 
erst dann den für die Library reservierten Speicher freigeben, wenn der Open-Zähler 
auf Null steht. 

Für den Umgang mit Libraries stellt Exec folgende Routinen zur Verfügung: 


Routlnennaae Offset Adresse Beschreibung 


HakeLlbrary -$054 $FC14EC Library aus Kern erzeugen 

Eingabe: A0 -> Tabelle der Routinenadressen 
AI -> Inltlallslerungsdaten 
A2 -> Inltlallslerungsroutlne 
D0 • Bytezahl f.Knoten u.Datenber. 
Dl -> SegLlst, falls benötigt 
Ausgabe: D0 -> Zeiger auf Library-Knoten 

SuaLlbrary -$1AA $FC1498 Prüfsuaae für Sprungllste eraltteln 

Eingabe: AI -> Library-Knoten 

HakeFunctlons -$05A $FC1576 Sprungllste aus Vektortabelle generieren 

(wird von HakeLlbrary gerufen) 

Eingabe: AI -> Vektortabelle 

A2 = Basis für Adresberechnung 

SetFunctlon -$1A4 $FC147A Sprungadresse ln Sprungllste ändern 

Eingabe: AI -> Library-Knoten 

A0 » Offset ln Sprungllste 
D0 > neue Sprungadresse 
Ausgabe: D0 - alte Sprungadresse 

AddLlbrary -$18C $FC140C Library zur Library List hinzufügen 

Eingabe: AI -> Library-Knoten 
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ReaLlbrary -$192 $FC141A Library aus Library List entfernen 

Eingabe: A1 -> Library-Knoten 
Ausgabe; D0 > 0 oder Fehlerkode 


OpenLlbrary -$228 


$FC1438 


Library für 
Eingabe: AI 
Dd 

Ausgabe: D0 
Dd 


Zugriff öffnen 
-> Llbrary-Naae 
» Version (Hlndestvert) 
-> Library-Knoten 
• d, wenn nicht gefunden 


CloseLlbrary -$19E 


$FC1466 Library für Zugriff schlleeen 
Eingabe: AI -> Library-Knoten 


9 Gerätetreiber (Devices), £in-/Ausgabe 

Der Verkehr des Betriebssystems mit Peripheriegeräten erfolgt über die Gerätetreiber 
(Devices). Das sind spezielle Libraries, die alle für ein spezielles Gerät notwendigen 
Betriebsroutinen enthalten. Folgende Devices sind im Kickstart-Ram enthalten: 


Name 

Adresse 

keyboard.devlce 

$FE5d2E 

gaaeport.devlce 

$FE507A 

tlmer.devlce 

$FE90EC 

audio.devlce 

$FC54CC 

Input.devlce 

$FE5dC6 

console.devlce 

$FE51dE 

trackdlsk.devlce 

$FE98E4 


Diese Treiber sind genauso aufgebaut wie die in Abschnitt 8 behandelten Libraries, 
haben aber eine eigene Liste, deren List Header im Exec-Datenbereich (Offset $15E) 
steht. 

Neben den obligatorischen Library-Routinen Open, Close, Expunge und Extfunct 
müssen die Device-Sprunglisten zwei weitere Aufrufe enthalten: 
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Offset -$01E BeglnlO Datenverkehr beginnen 
Offset -$024 AbortIO Datenverkehr abbrechen 


Damit ist in den meisten Fällen die Sprungliste auch schon zu Ende; nur das 
timer.device und das console.device enthalten noch zwei oder drei weitere Routinen. 

Für den Umgang mit Devices gibt es folgende Exec-Routinen: 

Routlnennane Offset Adresse Beschreibung 


AddDevlce -$1B0 $FC0654 Device zur Device List hlnzufügen 

Eingabe: AI -> Device-Knoten 

RemDevlce -$1B6 $FC0652 Device aus Device List entfernen 

Eingabe; AI -> Device-Knoten 
Ausgabe: D0 - 0 oder Fehlerkode 

OpenDevlce -$1BC $FC0666 Device für Zugriff öffnen 

Eingabe: A0 -> Devlce-Name 

AI -> lORequest-Block 
D0 = Nummer der Einheit 
Dl - Flags 

CloseDevlce -$1C2 $FC06B4 Device für Zugriff schllepen 

Eingabe: AI -> lORequest-Block 


Der Verkehr mit den Devices geschieht grundsätzlich in der Weise, daß zuerst ein 
Ein-Ausgabe-Anforderungsblock (lORequest) erzeugt wird. Das ist eine Datenstruk¬ 
tur vom Typ "Message": 


struct 

lo_Message 


DC.L 

lo_Devlce 

Zeiger auf Device-Knoten 

DC.L 

lo_Unlt 

Zeiger für Internen Gebrauch 

DC.W 

lo_Command 

Kommando (Standard oder speziell) 

DC.B 

lo_Flags 

Flags für Optionen und Status 

DC.B 

lo_Error 

Rückmeldung 
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DC.L 

lo_Actual 

Zahl der übertragenen Bytes 

DC.L 

lo_Length 

Angeforderte Bytezahl 

DC.L 

lo_Data 

Zeiger auf Datenpuffer 

DC.L 

lo_0ffset 

Byte-Offset (z.B. Im File) 


Es gibt folgende Standard-Kommandos: 


1 

cmd_Reset 

Device Initialisieren 

2 

cmd_Read 

Standard-Lesekommando 

3 

cmd_Urlte 

Standard-Schrelbkonmando 

4 

cnd_Update 

Alle Puffer schreiben 

5 

CBd_Clear 

Alle Puffer löschen 

6 

cmd_Stop 

lO-Aktlvltät unterbrechen 

7 

cad_Start 

lO-Aktivltät nach Stop fortsetzen 

8 

cmd Flush 

lO-Aktivltät abbrechen 


Darüberhinaus gibt es (z.B. für das trackdisk.device) noch weitere, gerätespezifische 
Kommandos. 

Wenn der lORequest-Block initialisiert ist, wird die Ein-/Ausgabe über folgende 
Exec-Routinen abgewickelt: 


Routlnennaae Offset Adresse Beschreibung 


SendIO 


DoIO 


UaitIO 


-$1CE $FC06CA Eln-/Ausgabe-Vorgang einleiten, nicht auf 
Abschluß warten 

Eingabe: AI -> lORequest-Block 

-$1C8 $FC06DC Eln-/Ausgabe-Vorgang elnlelten, auf Abschluß 
warten 

Eingabe: A1 -> lORequest-Block 
Ausgabe: DB • B oder Fehlerkode 


-$1DA $FCB6F2 Auf Eln-/Ausgabe-Abschluß warten 
Eingabe: A1 -> lORequest-Block 
Ausgabe: DB = B oder Fehlerkode 
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ChecklO -$1D4 $FC074E Eln-/Ausgabe-Status prüfen 

Eingabe: AI -> lORequest-Block 
Ausgabe: D0 • 0, wenn noch nicht abgeschlossen 
D0 -> lORequest-Block nach Abschlup 

AbortIO -$1E0 $FC076A Eln-/Ausgabe abbrechen 

Eingabe: AI -> lORequest-Block 


10 Spezielle Libraries für Hardware-Zugriffe (Resources) 

Für unmittelbare Zugriffe auf bestimmte Hardware-Komponenten stehen eine Reihe 
von Routinen zur Verfügung, die in sogenannten Resources zusammengefaßt sind. 
Das System kennt folgende Resources: 


Nase Adresse Zweck 


dlsk.resource 

$FC4794 

Zugriff 

cla.resource 

$FC450C 

Zugriff 

potgo.resource 

$FE4880 

Zugriff 

mlsc.resource 

$FE4774 

Zugriff 

keymap.resource 

$FE4FE4 

Zugriff 


auf Diskettenlaufwerk 
auf CIA-8$20 Register 
auf Potentiometer-Register 
auf seriellen und parallelen Port 
auf Tastaturkode-Tabelle 


Die Resources sind ebenso strukturiert wie Libraries und auch ganz analog zu ver¬ 
wenden. Wegen ihrer sehr speziellen Bedeutung kann auf sie an dieser Stelle nicht 
näher eingegangen werden. 


11 Weitere Exec-Routinen 

Neben den bisher beschriebenen Routinen, die von Exec selbst zur Abwicklung seiner 
Systemaufgaben benützt werden, sind über die Exec-Sprungliste noch weitere Routi¬ 
nen erreichbar, die als Hilfsroutinen für andere Libraries (graphics, Intuition usw.) 
und für Anwenderprogramme bereitgestellt werden: 
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Routlnenname 

Offset 

Adresse 

Beschreibung 

SetSR 

-$090 

$FC1122 

Statusregister des Prozessors setzen 
Eingabe; D0 :• Neuer Inhalt des SR 

Dl :« Bltoaske für Änderung 
Ausgabe: D0 « Alter Inhalt des SR 

fletCC 

-$210 

$FC1140 

Statusflags des Prozessors lesen 

Ausgabe: D0 • Statusflags X,N,Z,V,C 

SuperState 

-$096 

$FC1148 

Supervisor-Status nlt User-Stack 

Ausgabe; D0 « Alter Systemstackzeiger 

UserState 

-$09C 

$FC1174 

Rückkehr von SuperState 

Eingabe: D0 ;> Alter Systemstackzeiger 

Debug 

-$072 

$FC252E 

Aufruf des residenten Debuggers ROHUack 

CopyHea 

-$270 

$FC2F44 

Speicherkopierroutine 

Eingabe: A0 -> Quellbereich 

AI -> Zielbereich 

D0 :> Länge (Bytes) 

CopyHeaQulck 

-$276 

$FC2F40 

Schnelle Variante von CopyNem unter der 


Bedingung, dae AB, AI und Df) durch 4 teil¬ 
bare Werte enthalten 


CopyMem und CopyMemQuick sind leider nicht in voller Allgemeinheit anwendbar: 

Wenn sich Quell- und Zielbereich überlappen, kann nur nach unten kopiert werden. 
Es muß dann also Al < AO sein, sonst werden noch nicht kopierte Daten des Quell¬ 
bereichs durch den Kopiervorgang überschrieben. 
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12 Der Systemstart 

Es folgt hier eine Auflistung der Vorgänge im Reclmer vom Einschalten der Netz¬ 
spannung bzw. vom Reset durch CTRL-A-A bis zur Übernahme der Kontrolle durch 
AmigaDOS. 

(a) Vorgänge bis zum Start von Exec: (nur Amiga 1000) 

- Leuchtdiode (LED) blinkt 5 mal als Bestätigung für den Aufruf des Boot-ROM, 
der Bildschirm wird dunkelgrau. 

- Interrupts und DMA werden abgeschaltet, LED wird dunkel. 

- Es wird durch Berechnung der Prüfsumme über den gesamten Bereich von 
SFCOOOO bis $FFFFFF geprüft, ob die Kickstart-Systemroutinen schon geladen 
und in Ordnung sind; ist dies der Fall, so werden die restlichen Schritte von (a) 
übergangen und es wird sofort Exec gerufen (dies geschieht z.B. in aller Regel 
nach dem Reset mit CTRL-A-A). 

- Es folgt eine eingehende Überprüfung des Kickstart-RAM-Bereichs auf Fehler in 
den Speicherbausteinen. Wird ein Fehler festgestellt, wird der Bildschirm 
blaugrün und ein Neustart eingeleitet. 

- Anschließend wird der RAM-Bereich von $0 bis $3FFFF in der gleichen Weise 
geprüft. Ein Fehler bewirkt grünen Bildschirm und Neustart. 

- Nun wird ein Test der vier Audio-Kanäle veranstaltet, indem eine kurze Tonfolge 
über wechselnde Kanäle ausgegeben wird. 

- Die Ausnahmevektoren 2 bis 47 werden auf eine kurze Routine gerichtet, die 
einen gelben Bildschirm und Neustart veranlaßt, falls während der Anlauf-Phase 
eine Ausnahme (Interrupt, Busfehler etc.) eintritt. 

- Das interne Laufwerk wird angeworfen und Sektor 0 einer eingelegten Diskette 
in den Speicher gelesen. Ist keine Diskette vorhanden oder beginnt der Sektor 0 
nicht mit der Zeichenfolge ’KICK’, so wird die Graphik mit der Hand, die eine 
Kickstart-Disk hält, ausgegeben. Dann wird auf einen Diskwechsel gewartet und 
der Schritt wiederholt. 
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- Wurde die Kickstart-Diskette erkannt, so wird deren Inhalt - von Spur 0 an auf¬ 
steigend - in einen Spurpuffer gelesen und von dort aus sektorweise dekodiert 
und in das Kickstart-RAM geschrieben. Hierbei werden die Sektorheader und 
die Prüfsummen auf ihre Richtigkeit geprüft. Wird ein Fehler festgestellt, so wird 
erneut die Graphik ausgegeben und ein Diskwechsel abgewartet, dann der vor¬ 
hergehende Schritt wiederholt. 

- Der Bildschirm wird schwarz, das Boot-ROM wird abgeschaltet und Exec gestar¬ 
tet. 

(b) Initialisierung von Exec: 

(00D2) Stackzeiger wird initialisiert. Es wird geprüft, ob Exec bei SFOOOOO 

beginnt; wenn nicht, ob bei SFOOOOO die Modul-Anfangsmarke $1111 
steht. Gegebenenfalls wird dieser Modul in die Initialisierung einbe¬ 
zogen. 

(OOFE) LED wird dunkel, Interrupts und DMA gesperrt, Bildschirm dunkel¬ 

grau. 

(0136) Ausnahmevektoren 2 bis 47 werden vorläufig auf den Initialisierungs 

Fehlerausgang gesetzt. 

(014C) Es wird geprüft, ob Exec schon initialisiert und in Ordnung ist: 

- SysBase in Adresse 4 geradzahlig? 

- SysBase + ChkBase = 0? 

- Prüfsumme von Offset $22 bis $53 = -1? 

Ist eine dieser Bedingungen nicht erfüllt, so wird bei OlCE mit der 
Speicherinitialisierung fortgefahren. 

(0172) Es wird geprüft, ob der Abfangvektor ColdCapture gesetzt ist; wenn 

ja, wird ab hier über diesen Vektor verzweigt. Der ColdCapture-Vek¬ 
tor wird ebenso wie die beiden folgenden Vektoren CoolCapture und 
WarmCapture von Exec nicht berührt. Die Vektoren sind vom Boot¬ 
ROM-Speichertest her zunächst mit 0 belegt; solange sie nicht an¬ 
derweitig besetzt werden, werden sie beim Initialisierungslauf igno¬ 
riert. Sie können aber vom Anwender belegt werden und bewirken 
dann bei jedem Reset durch CTRL-A-A eine entsprechende Ver¬ 
zweigung. 

(0184) LED wird hell. Die Exec-Datenprüfung wird fortgesetzt: 

- Stimmt die Versionsnummer im Exec-Rambereich überein mit 
der im Kickstart-Header? 
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(OlCE) 


(0240) 

(02A8) 

(02B0) 

(036A) 

(0370) 

(0380) 

(03C6) 

(03CC) 

(041E) 

(043A) 

(043E) 

(0454) 


- Liegt der abgespeicherte Wert der Chip-Memory-Obergrenze 
MaxLocMem im Bereich von 256 kByte bis 512 kByte? 

- Falls ein Fast-Memory-RAM vorhanden ist: Liegt seine Ober¬ 
grenze im Bereich von $040000 bis SDCOOOO? Ist die Obergrenze 
ein Vielfaches von 256 kByte? 

Ist eine dieser Bedingungen nicht erfüllt, so wird mit dem nächsten 
Schritt fortgefahren; andernfalls wird die Ermittlung der Speicher¬ 
grenzen und die Speicherlöschung übersprungen und bei 0240 wei¬ 
tergemacht. 

Der Bereich von SCOOOOO bis SDCOOOO wird daraufhin geprüft, ob 
sich dort RAM befindet. Wenn ja, wird SysBase auf SCOOOOO gesetzt 
und der Exec-Datenbereich dort angelegt. Die Obergrenze wird in 
MaxExtMem gespeichert. Der Bereich von $0 bis $200000 (2 MB) 
wird auf das Ende des RAM-Bereichs untersucht; das Ergebnis wird 
als MaxLocMem abgespeichert. Sollte es kleiner als 256 kByte sein, 
so wird der Bildschirm grün und der Rechner geht in eine Endlos¬ 
schleife, die nur die LED blinken läßt. 

Der Bildschirm wird mittelgrau. Hier beginnt die Initialisierung des 
Exec-Datenbereichs: 

Prozessorbestückung ermitteln und in AttnFlags abspeichern, 
System-List-Headers initialisieren, 

Exec-Library Header im RAM installieren, 

Exec-Sprungliste aufbauen, 

Memory Region Header und Speicher-Freiliste einrichten, 

Exec Library zur Library-Liste hinzufügen, 

Ausnahmevektoren endgültig belegen, 

Interrupt-Server initialisieren, 

Debuggersystem ROMWack initialisieren, 

Prüfsumme von Exec-Offset $22 bis $53 berechnen und mit ChkSum 
auf -1 abgleichen. 

Der Exec-Task-Kontrollblock wird angelegt und initialisiert. Die Task 
wird gestartet, der Supervisor-Status abgeschaltet und der Taskwech¬ 
sel fi-eigegeben. 
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(0500) 

(050C) 

(051E) 


Alle residenten Moduln im Speicherbereich SFCOOOO bis SFFFFFF 
und im Speicherbereich SFOOOOO bis $F80000 werden gesucht und 
ihre Anfangsadressen in eine Tabelle eingetragen. Die Anfangs¬ 
adresse der Tabelle steht in ResModules (Offset $12C) im Exec-Da- 
tenbereich. Gibt es von einem Modul mehrere Versionen, so wird 
nur die letzte berücksichtigt. 

LED wird hell. Hier ist wieder ein Abfangvektor eingebaut: Dieser 
Vektor heißt CoolCapture. Die oben beim ColdCapture-Vektor ge¬ 
gebene Beschreibung gilt hier entsprechend. 

Alle residenten Moduln werden initialisiert. Dies besorgt die Exec- 
Routine InitCode in Abhängigkeit von Flags und Parametern in dem 
jeweiligen Modul. Als letzter Modul wird die DOS-Bootroutine Strap 
aufgerufen. Sie prüft das interne Laufwerk auf das Vorhandensein 
einer Disk, deren Sektor 0 mit der Zeichenfolge ’DOS’ beginnt. Ist 
dies nicht der Fall, so wird mit der bekannten Graphik die Work- 
bench-Disk angefordert. Wird die DOS-Diskette erkannt, so wird die 
DOS-Initialisierungsroutine von Sektor 0 und 1 geladen und ge¬ 
startet. Diese öffnet die im Kickstart-RAM bereits vorhandene 
dos.library und übergibt die Kontrolle an AmigaDOS. 

Falls die Übergabe an AmigaDOS aus irgendeinem Grund fehl¬ 
schlägt und InitCode die Kontrolle an Exec zurückgibt, ist nochmals 
ein Abfangen möglich mit dem WarmCapture-Vektor. Geschieht 
dies nicht, wird Debug über die Exec-Sprungliste (Offset -$072) auf¬ 
gerufen. Dieser Vektor zeigt, wenn er nicht (z.B. mittels CoolCap¬ 
ture) anders gesetzt wurde, auf den residenten Debugger ROM- 
Wack, der allerdings nur mittels eines Terminals an der seriellen 
Schnittstelle betrieben werden kann. 
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13 Die Listings 

Zu den nachfolgend abgedrackten Listings ist folgendes anzumerken: Die in der er¬ 
sten Spalte stehende vierstellige Hex-Zahl ist die Adresse des gelisteten Befehls ohne 
die beiden höchsten Stellen. 

Wenn auf eine Adresse irgendwo zugegriflfen wird, so steht in der zweiten Spalte die 
vollständige Adresse; diese Einträge sind also als Labels zu verstehen. 

In den Befehlsoperanden sind alle Zahlenangaben im Hexagesimalsystem gemacht, 
deshalb ist das an sich obligatorische $-Zeichen immer weggelassen. Die Lesbarkeit 
wird dadurch deutlich verbessert. 

In den Kommentaren sind alle Zahlenangaben ohne $-2^ichen im Dezimalsystem, 
solche mit $-Prefix im Hexagesimalsystem gemacht. Eine Ausnahme bilden vollstän¬ 
dige Adressen (= Labels), die kein $-Zeichen tragen. Soweit die Original-Dokumenta¬ 
tionen für Routinen, Variablen usw. bestimmte Namen angeben, wurden diese Na¬ 
men unverändert in die Kommentare und Überschriften übernommen. 
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Liste und Knoten 





$4 



$8 $9 $A 


0 

K3 

Typ 



$E 


Typ 0 Teil 2 des Listenkopfes 


KE+SO $4 $8 $9 

«KA+$4 


Listenkopf fl 









Kt 

0 




KA+$0 

$4 





+ 

0 

K3 





KE+$0 

$4 

$8 

$9 








Kl 

0 

K3 




KA+$0 

$4 

$8 

$c 

$0 


Listenkopf einer leeren Liste 









KA+4 

0 

KA 

B 

0 

KA+$0 

$4 

$8 

$c 

$D 
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Verwaltung des belegten Speichers <riemorq List) 
(Alle Zahlenangaben in Hex) 


1 ML 1 

0 

ML 1 

0 

0 

1 List Header im Task Control Blc 

LH+0 

4 

8 

C 

D 



TC+4A 


0 4 


1 

LH 


|A|0| NI 1 NE 


MAI 

LOi 


MA2 

LG2 


MAS 

LOS 


MA4 

LG 4 


MAS 

LG 5 



Memory Region 2 

Chip Memory 
0 4 
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» M 

* EXEC-SPRUNGLISTE J5.192 * 

« » 


Falls Fast Memory vorhanden, gilt Adr(F), sonst Adr(C). 


Offs Adr(C) 

Adr(F) 


Vektor 

Name der Routine 

-276 

400 

C00000 

J“P 

FC2F40 

CopyKemQulck 

-270 

406 

C00006 

Jmp 

FC2F44 

CopyMem 

-26ä 

40C 

C0000C 

jnip 

FC19EA 

AddMemList 

-264 

412 

C00012 

Jap 

FC0A5C 

SumKlckData 

-25E 

418 

C00018 

Jap 

FC2F50 

RemSemaphore 

-258 

41E 

C0001E 

Jap 

FC2F24 

AddSemaphore 

-252 

424 

C00024 

Jap 

FC2F54 

FindSemaphore 

-24C 

42A 

C0002A 

Jap 

FC2F0E 

ReleaseSemaphorelist 

-246 

450 

C00050 

Jap 

FC2E98 

ObtalnSemaphoreList 

-240 

456 

C00056 

Jap 

FC2E68 

AttemptSemaphore 

-25A 

45C 

C0005C 

Jap 

FC2E04 

ReleaseSemaphore 

-2J4 

442 

C00042 

Jap 

FC2DB4 

ObtainSenaphore 

-22E 

448 

C00048 

Jap 

FC2D94 

InltSemaphore 

-228 

44E 

C0004E 

Jap 

FC1458 

OpenLlbrary 

-222 

454 

C00054 

Jap 

FC2D72 

Vacate 

-21C 

45A 

C0005A 

Jap 

FC2D5C 

Procure 

-216 

460 

C00060 

Jap 

FC181A 

TypeOfMem 

-210 

466 

C00066 

Jap 

FC1140 

GetCC 

-20A 

46C 

C0006C 

Jap 

FC20E8 

RavDoFmt 

-204 

472 

C00072 

Jap 

FC222E 

RawPutChar 

-1FE 

478 

C00078 

Jap 

FC2202 

RauHayGetChar 
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-1F8 

47E 

C0007E 

Jip 

FC21F8 

RavIOInit 

-1F2 

484 

C00084 

jap 

FC1C54 

OpenResource 

-1EC 

48A 

C0008A 

Jap 

FC1C50 

ReaResource 

-1E6 

490 

C00090 

Jap 

FC1C28 

AddResource 

-1E0 

496 

C00096 

Jap 

FC076A 

AbortIO 

-IDA 

49C 

C0009C 

Jap 

FC06F2 

UaltIO 

-1D4 

4A2 

C000A2 

Jap 

FC074E 

ChecklO 

-ICE 

4A8 

C000A8 

Jap 

FC06CA 

SendIO 

-1C8 

4AE 

C000AE 

Jap 

FC06DC 

DoIO 

-1C2 

4B4 

C000B4 

Jap 

FC06B4 

CloseDevice 

-1BC 

4BA 

C000BA 

Jap 

FC0666 

OpenDevlce 

-1B6 

4C0 

C000C0 

Jap 

FC0662 

ReaDevlce 

-1B0 

4C6 

C000C6 

Jap 

FC0654 

AddDevice 

-IAA 

4CC 

C000CC 

Jap 

FC1498 

SuaLlbrary 

-1A4 

4D2 

C000D2 

Jap 

FC147A 

SetFunctlon 

-19E 

4D8 

C000D8 

Jap 

FC1466 

CloseLlbrary 

-198 

4DE 

C000DE 

Jap 

FC1450 

OldOpenLlbrary 

-192 

4E4 

C000E4 

Jap 

FC141A 

ReaLlbrary 

-18C 

4EA 

C000EA 

Jap 

FC140C 

AddLibrary 

-186 

4F0 

C000F0 

Jap 

FC1C1E 

FlndPort 

-180 

4F6 

C000F6 

Jap 

FC1BF6 

HaltPort 

-17A 

4FC 

C000FC 

Jap 

FC1BDC 

ReplyHsg 

-174 

502 

C00102 

Jap 

FC1BAE 

GetHsg 

-16E 

508 

C00108 

Jap 

FC1B54 

PutMsg 

-168 

50E 

C0010E 

Jap 

FC1B50 

ReaPort 

-162 

514 

C00114 

Jap 

FC1B18 

AddPort 

-15C 

51A 

C0011A 

Jap 

FC1FB4 

FreeTrap 

-156 

520 

C00120 

Jap 

FC1F8E 

AllocTrap 

-150 

526 

C00126 

Jap 

FC1FFC 

FreeSlgnal 

-14A 

52C 

C0012C 

Jap 

FC1FC4 

AUocSlgnal 

-144 

552 

C00152 

Jap 

FC1E48 

Signal 

-15E 

558 

C00158 

Jap 

FC1ED0 

Malt 

-158 

55E 

C0015E 

Jap 

FC1E18 

SetExcept 

-152 

544 

C00144 

Jap 

FC1E22 

SetSignal 

-12C 

54A 

C0014A 

Jap 

FC1DC8 

SetTaskPrl 

-126 

550 

C00150 

Jap 

FC1D74 

FlndTask 

-120 

556 

C00156 

Jap 

FC1CF4 

ReaTask 

-11A 

55C 

C0015C 

Jap 

FC1C48 

AddTask 

-114 

562 

C00162 

Jap 

FC165A 

FlndNaae 

-10E 

568 

C00168 

Jap 

FC1654 

Enqueue 
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-108 

56E 

C0016E 

J“P 

FC161E 

ReaTall 

-102 

574 

C00174 

Jmp 

FC160E 

ReaHead 

-0FC 

57A 

C0017A 

Jnp 

FC1600 

Reaove 

-0F6 

580 

C00180 

Jap 

FC15E8 

AddTall 

-0F0 

586 

C00186 

Jap 

FC15D8 

AddHead 

-0EA 

58C 

C0016C 

Jap 

FC15AC 

Insert 

-0E4 

592 

C00192 

Jap 

FC19AC 

FreeEntry 

-0DE 

598 

C00198 

J«P 

FC191E 

AllocEntry 

-0D8 

59E 

C0019E 

Jap 

FC18D0 

AvallHea 

-0D2 

5A4 

C001A4 

Jap 

FC17F0 

FreeHem 

-0CC 

5AA 

C001AA 

jap 

FC1840 

AllocAbs 

-0C6 

5B0 

C001B0 

jap 

FC1794 

AllocHea 

-0C0 

5B6 

C001B6 

Jap 

FC1704 

Deallocate 

-0BA 

5BC 

C001BC 

Jap 

FC169C 

Allocate 

-0B4 

5C2 

C001C2 

Jap 

FC1520 

Cause 

-0AE 

5C8 

C001C8 

jap 

FC1214 

RealntServer 

-0A8 

5CE 

C001CE 

J»P 

FC11D4 

AddlntServer 

-0A2 

5D4 

C001D4 

Jap 

FC118E 

SetlntVector 

-09C 

5DA 

C001DA 

Jap 

FC1174 

UserState 

-096 

5E0 

C001E0 

Jap 

FC1148 

SuperState 

-090 

5E6 

C001E6 

J«P 

FC1122 

SetSR 

-08A 

5EC 

C001EC 

Jap 

FC1F60 

Peralt 

-084 

5F2 

C001F2 

Jap 

FC1F5A 

Forbid 

-07E 

5F8 

C001F8 

Jap 

FC15FA 

Enable 

-078 

5FE 

C001FE 

Jap 

FC15EC 

Disable 

-072 

604 

C00204 

Jap 

FC252E 

Debug 

-06C 

60A 

C0020A 

Jap 

FC2FD6 

Alert 

-066 

610 

C00210 

Jap 

FC0B28 

InitResident 

-060 

616 

C00216 

Jap 

FC0AC0 

FindResident 

-05A 

61C 

C0021C 

Jap 

FC1576 

MakeFunctions 

-054 

622 

C00222 

Jap 

FC14EC 

KakeLibrary 

-04E 

628 

C00228 

Jap 

FC0BC8 

InltStruct 

-048 

62E 

C0022E 

Jap 

FC0AF0 

InitCode 

-042 

654 

C00254 

Jap 

FC0FCE 

Exceptlon 

-05C 

65A 

C0025A 

Jap 

FC0F2A 

Dispatch 

-056 

640 

C00240 

Jap 

FC0EE0 

Svltch 

-050 

646 

C00246 

Jap 

FC1F58 

Reschedule 

-02A 

64C 

C0024C 

Jap 

FC0E86 

Schedule 

-024 

652 

C00252 

Jap 

FC0E60 

Exltlntr 

-01E 

658 

C00258 

Jap 

FC08AA 

Supervlser 
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-018 

65E 

C0025E 

Jnp 

FC22EC 

Extfunct 

-012 

664 

C00264 

J"P 

FC22EC 

Expunge 

-00C 

66A 

C0026A 

Jnp 

FC22E8 

Close 

-006 

670 

C00270 

Jnp 

FC22E0 

Open 
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Exec ■ Library (RAM - BASE) 


» M 

•EXEC-LIBRARY (RAN-BASE) » 

* » 


Fills Fast Heiory vorhanden Ist, gilt Adr(F), sonst Adr(C). 
Unter “Wert” eingetragene Angaben können teilweise variieren. 


Ofs 

Adr(C) 

Adr(F) 

Typ 

Uert 

Nase 


BBB 

676 

C00276 

DO.L 

1CF6 

ln_Succ 

) 


67A 

C0027A 

DC.L 

07F0 

ln_Pred 

) 

008 

67E 

C0027E 

DC.B 

9 

ln_Type 

) ExecLlb Node 

009 

67F 

C0027F 

DC.B 

0 

ln_Prl 

) 

00A 

680 

C00280 

DC.L 

FC00A8 

ln_Naie 

) 

00E 

684 

C00284 

DC.U 

0400 

lib_Flags 


010 

686 

C00286 

DO.U 

0276 

llb_NegSize 


012 

688 

C00288 

DC.U 

024C 

lib_PosSl 2 e 


014 

68A 

C0028A 

DC.U 

0021 

llb_Verslon 


016 

68C 

C0028C 

DC.U 

00C0 

llb_Revlslon 


018 

68E 

C0028E 

DC.L 

FC0018 

llb_idString 


01C 

692 

000292 

DC.L 

66C50000 

llb_Sui 


020 

696 

C00296 

DC.U 

2 

lib_OpenCnt 


022 

698 

000298 

DC.U 

0 

SoftVer 


024 

69A 

C0029A 

DC.U 

0 

LowKeaChkSuD 


026 

69C 

C0029C 

DC.L 

FFFFF989 

ChkBase 
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DBA 

6A0 

C002A0 

DC.L 

0 

02E 

6A4 

C002A4 

DC.L 

0 

072 

6A8 

C002A8 

DC.L 

0 

36 

6AC 

C002AC 

DC.L 

80000 

3A 

6B0 

C002B0 

DC.L 

7E800 

3E 

6B4 

C002B4 

DC.L 

80000 

42 

6B8 

C002B8 

DC.L 

FC2342 

46 

6BC 

C002BC 

DC.L 

0 

4A 

6C0 

C002C0 

DC.L 

0 

4E 

6C4 

C002C4 

DC.L 

0 

52 

6C8 

C002C8 

DC.U 

FA22 


; Interrupt-Vektoren: 


54 

6CA 

C002CA 

DC.L 

0 

58 

6CE 

C002CE 

DC.L 

0 

5C 

6D2 

C006D2 

DC.L 

0 

60 

6D6 

C002D6 

DC.L 

1EDE 

64 

6DA 

C002DA 

DC.L 

FC4A80 

68 

6DE 

C002DE 

DC.L 

1F2C 

6C 

6E2 

C002E2 

DC.L 

0 

70 

6E6 

C002E6 

DC.L 

FC1380 

74 

6EA 

C002EA 

DC.L 

0 

78 

6EE 

C002EE 

DC.L 

08E8 

7C 

6F2 

C002F2 

DC.L 

FC12FC 

80 

6F6 

C002F6 

DC.L 

0 

84 

6FA 

C002FA 

DC.L 

0914 

88 

6FE 

C002FE 

DC.L 

FC12FC 

8C 

702 

C00302 

DC.L 

0 


; ColdCapture 
; CoolCapture 
; UaraCapture 

; SysStkUpper 
; SysStkLower 
; KaxLocHes 

; DebugEntry 
; DebugData 
; AlertData 

; NaxExtHea 

; ChkSua 


IVTBE - Ser.Port T-Buffer leer 


! IVDSKBLK - Disk Block fertig 


i IVSOFTINT - Software Interrupt 


; IVPORTS - lO-Ports & Tlaers 


; IVCOPER - Copper 


lv_Data 
lv_Code 
Iv Kode 
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90 

706 

C00506 

DC.L 

08FE 

: IVVERTB - 

Start Vertlcal Blank 

94 

70A 

C0050A 

DC.L 

FC12FC 



98 

70E 

C0050E 

DC.L 

0 



9C 

712 

C00512 

DC.L 

21FE 

; IVBLIT 

Blltter fertig 

A0 

716 

C00516 

DC.L 

FC6D8E 



A4 

71A 

C0051A 

DC.L 

2274 



A8 

71E 

C0051E 

DC.L 

50A6 

; IVAUD0 

Audio Kanal 0 fertig 

AC 

722 

C00522 

DC.L 

FC55A4 



B0 

726 

C00526 

DC.L 

50D8 



B4 

72A 

C0052A 

DC.L 

5112 

i IVAUD1 

Audio Kanal 1 fertig 

B8 

72E 

C0052E 

DC.L 

FC55A4 



BC 

7J2 

C00552 

DC.L 

5144 



C0 

756 

C00556 

DC.L 

517E 

; IVAUD2 

Audio Kanal 2 fertig 

C4 

75A 

C0055A 

DC.L 

FC55A4 



C8 

75E 

C0055E 

DC.L 

51B0 



CC 

742 

C00542 

DC.L 

51EA 

; IVAUD5 

Audio Kanal 5 fertig 

D0 

746 

C00546 

DC.L 

FC55A4 



D4 

74A 

C0054A 

DC.L 

521C 



08 

74E 

C0054E 

DC.L 

0 

: IVRBF 

Ser.Port R-Buffer voll 

DC 

752 

C00552 

DC.L 

0 



E0 

756 

C00556 

DC.L 

0 



E4 

75A 

C0055A 

DC.L 

1EDE 

; IVDISKSYNC- 

Disk Sync Reg • Data 

E8 

75E 

C0055E 

DC.L 

FC4A98 



EC 

762 

C00562 

DC.L 

1F42 



F0 

766 

C00566 

DC.L 

092A 

: IVEXTER - 

Externer Interrupt 

F4 

76A 

C0056A 

DC.L 

FC12FC 



F8 

76E 

C0056E 

DC.L 

0 



FC 

772 

C00572 

DC.L 

0 

: IVINTEN - 

Raster Interrupt 

100 

776 

C00576 

DC.L 

0 



104 

77A 

C0057A 

DC.L 

0 
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108 

77E 

C0037E 

DC.L 

0940 

IVNMI - Nicht fflasklerb. Interrupt 

10C 

782 

C00382 

DC.L 

FC12FC 



110 

786 

C00386 

DC.L 

0 



; Dynaiische Systeavarlable 



114 

78A 

C0038A 

DC.L 

203D8 

ThlsTask 

Zeiger auf laufende Ta 

118 

78E 

C0038E 

DC.L 

6A24 

IdleCount 

Uartezyklen-Zähler 

11C 

792 

C00392 

DC.L 

5B77 

DlspCount 

Dlspatch-Zahler 

120 

796 

C00396 

DC.W 

0010 

Quantum 

Zeltscheibe 

122 

798 

C00398 

DC.U 

000F 

Elapsed 

abgelaufene Zelt 

124 

79A 

C0039A 

DC.U 

0 

SysFlags 

verschiedene Systea-Flags 

126 

79C 

C0039C 

DC.B 

FF 

IDNestCnt 

Int-Dlsable Ebene 

127 

79D 

C0039D 

DC.B 

FF 

TDNestCnt 

Task-Dlsable Ebene 

128 

79E 

C0039E 

DC.U 

0 

AttnFlags 

Flags f. Prozessortyp 

12A 

7A0 

C003A0 

DC.U 

0 

AttnResched 

Flags f. Reschedule 

12C 

7A2 

C003A2 

DC.L 

1C00 

ResNodules 

Zeiger auf Modul-Liste 

130 

7A6 

C003A6 

DC.L 

FC2FB4 

TaskTrapCode - 

Default Task-Trap-Rout. 

134 

7AA 

C003AA 

DC.L 

FC2FB4 

TaskExceptCode- 

Def. Task-Exception-Rout. 

138 

7AE 

C003AE 

DC.L 

FC1CEC 

TaskExltCode - 

Def. Task-Abschluss-Rout. 

13C 

7B2 

C003B2 

DC.L 

FFFF 

TaskSlgAlloc - 

Vorbelegung Signalmask 

140 

7B6 

C003B6 

DC.U 

8000 

TaskTrapAlloc - 

Vorbelegung Trapmaske 

; Systei 

Llst-Headers: 




142 

7Be 

C003B8 

DC.L 

08C2 

HeaList 


146 

7BC 

C003BC 

DC.L 

0 



HA 

7C0 

C003C0 

DC.L 

08C2 



HE 

7C4 

C003C4 

DC.U 

0A00 



130 

7C6 

C003C6 

DC.L 

19EA 

ResourceList 


154 

7CA 

C003CA 

DC.L 

0 



158 

7CE 

C003CE 

DC.L 

1BA4 



15C 

7D2 

C003D2 

DC.U 

0800 



15E 

7D4 

C003D4 

DC.L 

2C1C 

DeviceList 


162 

7D8 

C003D8 

DC.L 

0 



166 

7DC 

C003DC 

DC.L 

4D6AC 



16A 

7E0 

C003E0 

DC.U 

0300 
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16C 

7E2 

C003E2 

DC.L 

170 

7E6 

C003E6 

DC.L 

174 

7EA 

C003EA 

DC.L 

178 

7EE 

C003EE 

OC.U 

17A 

7F0 

C003F0 

DC.L 

17E 

7r4 

C003F4 

DC.L 

182 

7F8 

C003F8 

DC.L 

186 

7FC 

C003FC 

DC.U 

188 

7FE 

C003FE 

DC.L 

18C 

802 

C00402 

DC.L 

190 

806 

C00406 

DC.L 

194 

80A 

C0040A 

DC.U 

196 

80C 

C0040C 

DC.L 

19A 

810 

C00410 

DC.L 

19E 

814 

C00414 

DC.L 

1A2 

818 

C00418 

DC.U 

1A4 

81A 

C0041A 

DC.L 

1A8 

81E 

C0041E 

DC.L 

1AC 

822 

C00422 

DC.L 

1B0 

826 

C00426 

DC.U 

1B2 

828 

C00428 

DC.L 

1B6 

82C 

C0042C 

DC.L 

IBA 

830 

C00430 

DC.L 

1BE 

834 

C00434 

DC.U 

1C0 

836 

C00436 

DC.U 

1C2 

838 

C00438 

DC.L 

1C6 

83C 

C0043C 

DC.L 

1CA 

840 

C00440 

DC.L 

ICE 

844 

C00444 

DC.U 

1D0 

846 

C00446 

DC.U 


07E6 ; Intrlist 

0 

07E2 

0200 

0676 ; LlbList 

0 

01CE6C 

0900 

481C8 ; PortList 

0 

1D9A0 

0400 

0810 ; TaskReaidy 

0 

080C 

0100 

A708 ; TaskWait 

0 

1E07A 

0100 

082C : Softint (Pri -32) 

0 

0828 

0B00 

0 

083C ; Softint (Pri -16) 

0 

0838 

0B00 

0 
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1D2 

848 

C00448 

DC.L 

084C 

j Softint (Pri 0) 

1D6 

84C 

C0044C 

DC.L 

0 


IDA 

850 

C00450 

DC.L 

0848 


IDE 

854 

C00454 

DC.U 

0600 


1E0 

856 

C00456 

DC.U 

0 


1E2 

858 

C00458 

DC.L 

085C 

j Softint (Prl 16) 

1E6 

85C 

C0045C 

DC.L 

0 


1EA 

860 

C00460 

DC.L 

0858 


1EE 

864 

C00464 

DC.U 

0B00 


1F0 

866 

C00466 

DC.U 

0 


1F2 

868 

C00468 

DC.L 

086C 

; Softint (Pri 32) 

1F6 

86C 

C0046C 

DC.L 

0 


IFA 

870 

C00470 

DC.L 

0868 


1FE 

874 

C00474 

DC.U 

0B00 


200 

876 

C00476 

DC.U 

0 


202 

878 

C00478 

DC.L 

-1 

; LastAlert 

206 

87C 

C0047C 

DC.L 

0 


20A 

880 

C00480 

DC.L 

0 


20E 

884 

C00484 

DC.L 

0 


212 

888 

C00488 

DC.B 

32 

: VBlankFrequency 

213 

889 

C00489 

DC.B 

32 

; PowerSupplyFrequency 

214 

88A 

C0048A 

DC.L 

088E 

; SeaaphoreList 

218 

88E 

C0048E 

DC.L 

0 


21C 

892 

C00492 

DC.L 

088A 


220 

896 

C00496 

DC.U 

0F00 


222 

898 

C00498 

DC.L 

0 

; KickNeaPtr 

226 

89C 

C0049C 

DC.L 

0 

: KlckTagPtr 

22A 

8A0 

C004A0 

DC.L 

0 

; KlckChkSuD 
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22E 

8A4 

C884A4 

DC.B 

0,0,0,0,0,0,0,0.0,0 

; ExecBaseReserved 

278 

8AE 

C804AE 

DC.B 

0,0,0,0,0,0,0,0,0,0 

; ExecBaseNevReserved 




DC.B 

0,0,0,0,0,0,0,0,0,0 



£nde der Exec-Llbrary RAH-Base 
; Henory Region Header (Chip Menory) 


24C 

8C2 

DC.L 

07BC 

ln_Succ 

250 

8C6 

DC.L 

07B8 

ln_Pred 

254 

8CA 

DC.B 

0A 

ln_Type 

255 

8CB 

DC.B 

F6 

ln_Prl 

256 

8CC 

DC.L 

FC0526 

ln_Name 

25A 

8D0 

DC.U 

5 

mh_Attrlbutes 

25C 

8D2 

DC.L 

1CD80 

Bh_Flrst 

260 

8D6 

DC.L 

08E8 

«h_Lower 

264 

8DA 

DC.L 

07E800 

Bh_Upper 

268 

8DE 

DC.L 

02A160 

mh_Free 

26C 

8E2 

DC.U 

0 


26E 

8E4 

DC.L 

0 
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Tabelle der residenten Moduln 


II » 

* Tabelle der residenten Moduln * 

« n 

iiiiiiiiiiii»«iiiiiiiiiiifii«iiiiiiiiiiiiifiiif»it»iiiiiiii«iiiiiiiiiiii»iiiiiiiiiiiiiiiiiiiiifiiiiiiiiiiiiiiiiii 


1C00 

DC.L 

FC00B6 

exec.llbrary 

1C04 

DC.L 

FC4AFC 

expansion.ilbrary 

1C08 

DC.L 

FE4880 

potgo.resource 

1C0C 

DC.L 

FE4FE4 

keymap.resource 

1C10 

DC.L 

FC450C 

cia.resource 

ICH 

DC.L 

FC4794 

dlsk.resource 

1C18 

DC.L 

FE4774 

■isc.resource 

1C1C 

DC.L 

FE49CC 

raalib.library 

1C20 

DC.L 

FC5578 

graphlcs.llbrary 

1C24 

DC.L 

FE902E 

keyboard.device 

1C28 

DC.L 

FE507A 

gameport.devlce 

1C2C 

DC.L 

FE90EC 

tlaer.device 

1C50 

DC.L 

FC34CC 

audio.device 

1CJ4 

DC.L 

FE50C6 

input.device 

1C58 

DC.L 

FE0D90 

layers.library 

1C5C 

DC.L 

FE910E 

console.device 

1C40 

DC.L 

FE98E4 

trackdisk.device 

1C44 

DC.L 

FD3F5C 

intuition.library 

1C48 

DC.L 

FC323A 

alert.hook 

1C4C 

DC.L 

FE424C 

nathffp.library 

1C50 

DC.L 

FEB400 

vorkbench.task 

1C54 

DC.L 

FF425A 

dos.library 

1C58 

DC.L 

FE8884 

strap 

1C5C 

DC.L 

0 



iiiiiiiiifiiiiiiifiiiiifiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii»«iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii«iiiiiiifiiiiiiiiiiifiiii 
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Abkürzungen 


Abkürzungen 


AG 

General Purpose Alert Codes 

AN 

Specific Dead-End Alerts 

AO 

Alert Objects 

AT 

Alert Types 

CMD 

lO-Command 

DD 

Device Data Structure 

IO 

lO-Request Structure 

lOERR 

lO-Error 

IS 

Interrupt Structure 

IV 

Exec Internal Interrupt Vector 

LH 

List Header Structure 

LIB 

Standard Library Data Structure 

LN 

List Node Structure 

MC 

Memory Chunk Structure 

ME 

Memory Entry Structure 

MH 

Memory Region Header Structure 

ML 

Memory List Structure 

MLH 

Minimal List Header Structure 

MLN 

Minimal List Node Structure 

MN 

Message Structure 

MP 

Message Port Structure 

NT 

Node Type 

RT 

Resident Module Tag 

SH 

Software Interrupt List Header 

SM 

Semaphore Structure 

SS 

Signal Semaphore Structure 

SSR 

Signal Semaphore Request Structure 

TC 

Task Control Structure 

TS 

Task State 

UNIT 

lO-Unit Structure 


Amiga Know-how 


Seite 65 





Abkürzungen 



Seite 66 


Amiga Know-how 




Amiga Exec 33. 192 


Amiga Exec 33.192 


0000 

0000 :» » 

0000 !» AHIGAEXEC35.192 » 

0000 :* » 

0000 


0000 FC0000 

DC.U 

1111 ; 

Modul-Anfangsmarke 

0002 




0002 

Jmp 

FC00D2 : 

—> Initialisierung 

0008 




0008 

DC.U 

0 


000A 

DC.U 

-1 


000C 

DC.U 

21 


000E 

DC.U 

B4 


0010 




0010 FC0010 

DC.U 

21 ; 

Version 

0012 

DC.U 

C0 i 

Revision 

0014 

DC.L 

-1 


0018 




0018 FC0018 

DC.B 

’exec 33.192 (8 Oct 

1986)’,0D,0A,0,0 ; IdStrlng 

0034 




0034 

DC.L 

-1 


0038 




0038 

DC.B 

0D,0A,0A,’AHIGA ROM Operatlng System and Libraries’,0D,0A 

0063 

DC.B 

'Copyright (C) 1985. 

Commodore-Amiga, Inc.’,0D,0A 

0090 

DC.B 

'All Rights Reserved 

.’.0D,0A,0.0 

00A8 




00A8 FC00A8 

DC.B 

’exec.library’,0,0 j 

llbName 

00B6 




00B6 i- 

Library Header Structure 



00B6 
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00B6 FC00B6 

DC.U 4AFC 

00B8 

DC.L FC00B6 

006C 

DC.L FC525A 

00C0 

DC.B 0 

00C1 

DC.B 21 

00C2 

DC.B 9 

00C5 

DC.B 78 

00C4 

DC.L FC00A8 

00C8 

DC.L FC0018 

00CC 

DC.L FC00D2 

00D0 


00D0 

reset 

00D2 


00D2 :- 

Initialisierung 

00D2 


00D2 FC00D2 

lea 40000,a7 

00D8 

move.l /20000,d0 

00DE FC00DE 

subq.l /1,d0 

00E0 

bgt.s FC00DE 

00E2 

lea -E4(pc),a0 

00E6 

lea F00000,a1 

00EC 

cmpa.l a1,a0 

00EE 

beq.s FC00FE 

00F0 

lea C(pc),a5 

00F4 

cmpl.w /1111,(a1) 

00F8 

bne.s FC00FE 

00FA 

jmp 2(a1) 

00FE 


00FE FC00FE 

move.b /5,BFE201 

0106 

move.b /2,BFE001 

010E 

lea DFF000,a4 

0114 

move.v /7FFF,d0 

0118 

move.v d0,9A(a4) 

011C 

move.w d0,9C(a4) 

0120 

move.v d0,96(a4) 

0124 

move.v /200,100(a4) 

012A 

move.v /0,110(a4) 

0150 

move.v /444,180(a4) 

0156 


0156 

movea.v /8,a0 


rt_Matchword 

rt_Hatchtag 

rt_Endsklp 

rt_Flags 

rt_Verslon 

rt_Type 

rt_Prl 

rt_Nane 

rt_ldString 

rt Init 


; Stackzeiger auf 2$6k setzen 
i Zähler 151072 
j liarteschlelfe ca. 0.5 s 

; a0 Modul-Anfang 

; a1 F00000 

: Modul-Anfang - F00000? 

: ja: -> 

: a5 :• ..00FE (Rückkehradresse) 

; Modul-Anfangsmarke vorhanden? 

; nein: -> 

; —> Modul Initialisieren 

i 8520-A ODRA: Bit 0, 1 ■ Output 
: 8520-A PRA : LED dunkel 
: a4 := Spezialchip Basisadresse 

i INTENA: Alle IR-Enable-Blts 0 
! INTREQ: Alle IR-Req-Blts :> 0 
: DMACON: Alle DMA-Enable-Blts :■= 0 
; BPLCON0: Comp.Video Color Enable 
; BPL1DAT: Blldschlrmausgabe starten 
; COLOR0: Bildschirm dunkelgrau 

i a0 :■= Anfang der Vektortabelle 
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013A 

move.v 

/2D,d1 

013E 

lea 

474(pc),a1 

0142 FC0142 

move. 1 

a1,(a0)+ 

0144 

dbra 

d1,FC0142 

0148 

bra 

FC30C4 

014C 

BMC FC014C 

move.l 

4.dB 

0150 

btst.l 

/0,d0 

0154 

bne.s 

FC01CE 

0156 

movea.l 

d0,a6 

0158 

add.l 

26(a6),d0 

015C 

not.l 

d0 

B15E 

bne.s 

FC01CE 

0160 

moveq 

/0,d1 

0162 

lea 

22(a6),a0 

0166 

moveq 

/18,d0 

0168 FC0168 

add.v 

(a0)+.d1 

BMA 

dbra 

d0,FC0168 

016E 

not.v 

dl 

0170 

bne.s 

FC01CE 

0172 

move.l 

2A(a6),d0 

0176 

beq.s 

FC0184 

0178 

movea.l 

d0,a0 

BMA 

lea 

8(pc).a5 

017E 

clr.l 

2A(a6) 

0182 

Jmp 

(a0) 

0184 

0184 FC0164 

bchg.b 

/1,BFE001 

BMC 

move.l 

-17E(pc),d0 

0190 

cmp.l 

14(a6),d0 

0194 

bne.s 

FC01CE 

0196 

movea.l 

3E(a6).a3 

BMA 

cmpa.l 

/80000,a3 

01A0 

bhi.s 

FC01CE 

01A2 

cmpa.l 

/40000,a3 

01A8 

bcs.s 

FC01CE 

01AA 

movea.l 

4E(a6),a4 

01 AE 

move.l 

a4,d0 

01B0 

beq 

FC0240 

01B4 

cmpa.l 

/DC0000,a4 


dl 45 (Zähler) 

a1 FCB5B4 (Fehlerausgang) 

Vektoren 2 bis 47 vorläufig 
auf Fehlerausgang richten 
—> Umleitung für Alert-Reset 

dB von SysBase laden 
Bit B - 17 
Ja: Kaltstart -> 
a6 :< SysBase 

Kontrollkode ChkBase addieren 
Ergebnis invertieren 
nicht Null: Kaltstart -> 
d1 :• B (Summenregister) 
aB :• Anfang Variablenbereich 
dB :> 24 (Zähler) 

Prüfsumme über 25 Worte 
ln dl berechnen 
und invertieren 

Ergebnis nicht Null: Kaltstart -> 
dB :» ColdCapture-Vektor 
» B: -> 

aB :» ColdCapture-Vektor 
a5 :* FCB184 (Rückkehradresse) 
ColdCapture-Vektor :- B 
—> ColdCapture-Routine 

852B-A PRA: LED umschalten 
dB := Version 

“ Version im ExecLlb-Header? 
nein: Kaltstart -> 
a5 :* HaxLocHem » Speichergrenze 
Speichergrenze > 512 k? 

Ja: Kaltstart -> 

Speichergrenze < 256 k? 

Ja: Kaltstart -> 
a4 :- HaxExtHem 
dB := a4 

kein FastMem vorhanden: -> 
a4 > 13.75 MB? 
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01BA 

bhl.s 

FC01CE 

01BC 

cmpa.1 

/C40000,a4 

01C2 

bcs.s 

FC01CE 

01C4 

move.l 

a4,d0 

01C6 

andl.l 

/5FFFF.d0 

01 CG 

beq.s 

FC0240 


01CE 
CI1CE ; 
01CE 


01CE FC01CE 

lea 

400,a6 

01D2 

suba.v 

/-276,a6 

01D6 

lea 

C00000,a0 

01DC 

lea 

DC0000,a1 

01E2 

lea 

6(pc),a5 

01E6 

bra 

FC061A 

01EA 



01EA FC01EA 

move.l 

a4,d0 

01EC 

beq.s 

FC0208 

01EE 

B 

O 

< 

/C00000,a6 

01F4 

suba.v 

/-276.a6 

01F8 

move.l 

a4,d0 

01FA 

lea 

C00000,a0 

0200 

lea 

6(pc).a5 

0204 

bra 

FC0602 

0208 



0208 FC0208 

lea 

0,a0 

020C 

lea 

200000,a1 

0212 

lea 

6(pc),a5 

0216 

bra 

FC0592 

021A 



021A FC021A 

cmpa.l 

/40000,a5 

0220 

bcs.s 

FC0258 

0222 

move.l 

/0,0 

022A 

move.l 

a5,d0 

022C 

lea 

C0,a0 

0250 

lea 

E(pc),a5 

0254 

bra 

FC0602 

0258 



0258 FC0258 

fflove .u 

/C0,d0 

025C 

bra 

FC05B8 


Ja: -> 

a4 < 12.25 HB? 

Ja: -> 
d0 := a4 

Bits 18.51 löschen 

Ergebnis * 0: -> 

Kaltstart 

a6 := erste freie RAM-Adresse 
Länge der Exec-Sprungliste addieren 
a0 :- Suchbereich Anfang 
a1 :• Suchbereich Ende 
a5 :- FC01EA (RUckkehradresse) 

—> RAH ab C00000 suchen 

d0 := a4 • Ergebnis 
Kein RAH vorhanden: -> 
a6 := Anfang des RAH-Bereichs 
a6 -> SysBase 

d0 := Ende des Löschbereichs 
a0 := Anfang des Löschbereichs 
a5 FC0208 (RUckkehradresse) 

—> Speicher löschen 

a0 := 0 (Speicher-Untergrenze) 
a1 :» 2 HB (Hax. Speichergrenze) 
a5 FC021A (Rückkehradresse) 

—> Speichergrenze ermitteln 

Speichergrenze < 256 kB? 

Ja: Fehler -> 

■HELP’-Flag löschen 
d0 :- Speichergrenze 
a0 Stack-Aussparung (Langvorte) 
a5 :- FC0240 (RUckkehradresse) 

—> Speicher löschen 

für Bildschirmfarbe Grün 
—> Fehlerausgang 
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0240 




0240 FC0240 

lea 

DFF000,a0 

a0 Spezialchip-Basisadresse 

0246 

love.v 

/7FFF.96(a0) 

DHACON: Alle DHA-Enable-Bits 0 

024C 

Bove.v 

/200,t00(a0) 

BPLCON0: Coup.Video Color Enable 

0292 

move.v 

/0,110(a0) 

BPL1DAT: Bildschirnausgabe starten 

0298 

■ove.v 

/B88,1B0(a0) 

COLOR0: Bildschlra aittelgrau 

029E 

lea 

94(a6),a0 

a0 :• Anfang der Exec-Varlablen 

0262 

■ovea.l 

222(a6).d2-d4 

KickNeaPtr,KlckTagPtr.KickChkSum retten 

0268 

■oveq 

/0,d0 

d0 Löschkode 

026A 

■ove.v 

/7D,d1 

d1 :> Bereichslänge (LU) 

026E FC026E 

■ove.l 

d0,(a0)+ 

Exec-Varlablenberelch löschen 

0270 

dbra 

dl,FC026E 

von 94(a6) bis 24B(a6) 

0274 

■ovea.l 

d2-d4,222(a6) 

KickNeaPtr usw. wiederherstellen 

027A 

nove. 1 

a6,4 

SysBase ln 4 abspeichern 

027E 

■ove.l 

a6,d0 

d0 :> SysBase 

0280 

not.l 

d0 

invertieren 

0282 

■ove.l 

d0,26(a6) 

und als ChkBase abspeichern 

0286 

■ove.l 

a4,d0 

d0 Ende Ext. Menory 

0288 

bne.s 

FC028C 

Fast Neaory vorhanden: -> 

028A 

■ove.l 

a9,d0 

d0 Ende Chip Nenory 

028C FC028C 

■ovea.l 

d0,a7 

Systea-Stackzelger Initialisieren 

028E 

■ove.l 

d0,96(a6) 

SysStkUpper 

0292 

subi.l 

/1800,d0 

d0 :• Stacklänge 6144 Bytes 

0298 

■ove.l 

d0,;A(a6) 

SysStkLover 

029C 

■ove.l 

a5.5E(a6) 

NaxLocNea (Chip Memory) 

02A0 

■ove.l 

a4,4E(a6) 

HaxExtMea 

02A4 

bsr 

FCJ0E4 

—> LastAlert-Herte speichern 

02A8 

bsr 

FC0946 

—> Prozessortyp eraltteln 

02AC 

or.v 

d0,128(a6) 

AttnFlags entsprechend setzen 

02B0 




02B0 :- 

Systen List Header Installieren 

02B0 




02B0 

lea 

20(pc),a1 

a1 :• Anfang der LH-Tabelle 

02B4 FC02B4 

■ove.v 

(a1)+,d0 

d0 :• Tabellenwert 

02B6 

beq 

FC0JJE 

Tabellenende erreicht: -> 

02BA 

lea 

0(a6,d0.v),a0 

a0 :» LH-Adresse 

02BE 

■ove.l 

a0,(a0) 

lh_Head 

02C0 

addq.l 

A4.(a0) 

zeigt auf lh_Tail 

02C2 

clr.l 

4(a0) 

lh_Tall ist inner • 0 

02C6 

■ove.l 

a0,8(a0) 

lh_TailPred zeigt auf lh_Head 
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02CA 

■ove.v 

(a1)+,d0 

: d0 :• lh_Type aus Tabelle 

02CC 

■ove.b 

d0,C(a0) 

; ln Header eintragen 

02D0 

bra.s 

FC02B4 

; —> Loop 

02D2 

02D2 FC02D2 

DC.U 

142 

; HenLlst 

02D4 

DC.U 

A 


02D6 

DC.U 

180 

: ResourceLlst 

02D8 

DC.U 

8 


02DA 

DC.U 

15E 

; DevlceLlst 

02DC 

DC.U 

5 


02DE 

DC.U 

17A 

i LlbLlst 

02E0 

DC.U 

9 


02E2 

DC.U 

188 

: PortLlst 

02E4 

DC.U 

4 


02E6 

DC.U 

196 

; TaskReady 

02E8 

DC.U 

1 


02EA 

DC.U 

1A4 

; TaskUalt 

02EC 

DC.U 

1 


02EE 

DC.U 

16C 

; IntrLlst 

02F0 

DC.U 

2 


02F2 

DC.U 

1B2 

: Softint 

02F4 

DC.U 

B 


02F6 

DC.U 

1C2 

: Softint 

02F8 

DC.U 

B 


02FA 

DC.U 

1D2 

; Softint 

02FC 

DC.U 

B 


02FE 

DC.U 

1E2 

: Softint 

0700 

DC.U 

B 


0702 

DC.U 

1F2 

; Softint 

0704 

DC.U 

B 


0706 

DC.U 

214 

; SenaphoreLlst 

0?08 

DC.U 

F 


070A 

DC.U 

0 


050C 

0J0C i- 

Exec Library Header 


050C 

0J0C FC050C 

DC.B 

9 

; ln_Type 

0?0D 

DC.B 

0 

j ln_Prl 

0;0E 

DC.L 

FC00A8 

i ln_Naiiie 

0?12 

DC.U 

0600 

; rt_Flags 
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0314 

DC.U 

0 

0316 

DC.U 

024C 

0318 

DC.U 

21 

031A 

DC.U 

BD 

031C 

DC.L 

FC0018 

0320 

DC.L 

0 

0324 

DC.U 

1 

0324 

0326 FC0326 

DC.B 

'Chip HeBory’,0 

0332 FC0332 

DC.B 

'Fast HeBory’,0 

033E 

033E FC033E 

lea 

2C74(pc),a0 

0342 

■ove.l 

a0,130(a6) 

0346 

Bove.l 

a0,134(a6) 

034A 

aove. 1 

/FC1CEC,138(a6) 

0352 

Bove.l 

/FFFF.13C(a6) 

035A 

Bove.v 

/8000,140(a6) 

0360 

lea 

8(a6),a1 

0364 

lea 

-5A(pc),a0 

0368 

Boveq 

/C,d0 

036A FCd36A 

BOve.v 

(a0)+,(a1)+ 

d36C 

dbra 

d0,FC036A 

0370 

Bovea.l 

a6,a0 

0372 

lea 

16CC(pc),a1 

0376 

Bovea.l 

a1 ,a2 

0378 

bsr 

FC1576 

037C 

Bove.v 

d0,10(a6) 

0380 

Bove. 1 

a4,d0 

0382 

beq.s 

FC03A8 

0384 

lea 

24C(a6),a0 

0388 

lea 

-58(pc),a1 

038C 

Boveq 

/0,d2 

038E 

BOve.v 

/5,d1 

0392 

BOve.l 

a4,d0 

0394 

sub. 1 

ad.dd 

0396 

subi.l 

/1800,d0 

039C 

bsr 

FC19EA 

03A0 

lea 

400,a0 

03A4 

Boveq 

/0,d0 

03A6 

bra.s 

FC03B2 


rt_NegSize 

rt_PosSlze 

rt_Verslon 

rt_Revislon 

rt_l(lStrlng 

rt_SuB 

rt_OpenCnt 


a0 FC2FB4 

TaskTrapCode 

TaskExceptCode 

TaskExitCode 

TaskSlgAlloc 

TaskTrapAlloc 

a1 -> ln_Type (ExecLlb) 

ad :> FC0?dC 

dd :• 12 (Z&hler) 

Exec Library-Header 
Ins RAH kopieren 
ad :• SysBase 
a1 :• FC1A40 ■ Anfang der 
Library Offset Tabelle 
—> HakeFunctions 
lib_NegSlze eintragen 
Fast Heaory vorhanden? 
nein: -> 

ad -> Ende Exec-Datenberelch + 1 
a1 :• FCd552 -> 'Fast Nenory’ 
d2 :• Priorität 
dl :> Attribute: Fast, Public 
dd Fast Nenory Obergrenze 

- Ende Exec-Datenbereich 

- Systen-Stack-Länge 
—> AddNeaList 

ad :• Anfang des freien Chip Menory 
dd ;> 0 
—> 
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0;a8 



0;A8 FC03A8 

lea 

24C(a6),a0 

0?AC 

aove.l 

/-1800.d0 

0?B2 FC03B2 

aove.v 

«.dl 

0;b6 

Bovea. 1 

a0,a2 

03B8 

lea 

-94(pc).a1 

0SBC 

Boveq 

/F6,d2 

0?BE 

add.l 

a3,d0 

03 C0 

sub.l 

a0,d0 

03C2 

bsr 

FC19EA 

03C6 

aovea.l 

a6,a1 

03C8 

bsr 

FC140C 

03CC 

lea 

5AA(pc),a0 

03D0 

aovea.l 

a0,a1 

03D2 

Bovea.v 

/8,a2 

03D6 

bra.s 

FC03DE 

03D8 



03D8 FC03D8 

lea 

0(a0,d0.v),a3 

03DC 

aove.l 

a3.(a2)+ 

03DE FC03DE 

aove.v 

(a1)+.d0 

03E0 

bne.s 

FC03D8 

03E2 

aove.v 

128(a6).d0 

03E6 

btst.l 

/0,d0 

03EA 

beq.s 

FC041E 

03EC 

lea 

48E(pc),a0 

03F0 

Bovea.v 

/8,a1 

03F4 

aove.l 

a0.(a1)+ 

03F6 

aove.l 

a0,(a1)+ 

03F8 

aove.l 

/FC08BA.-1C(a6) 

0400 

aove.l 

/42C04E75.-210(a6) 

0408 

btst.l 

/4.d0 

040C 

beq.s 

FC041E 

040E 

aove.l 

/FC108A.-34(a6) 

0416 

aove.l 

/FC10E8,-3A(a6) 

041E FC041E 

bsr 

FC125C 

0422 

lea 

DFF000,a0 

0428 

aove.v 

/8200,96(a0) 

042E 

aove.v 

/C000,9A(a0) 

0454 

aove.v 

«FFF,126(a6) 

043A 

bsr 

FC22FA 


a0 -> Ende Exec-Datenberelch + 1 
d0 - Systenstack-Länge 
dl Attribute: Chip, Public 

a1 :» FC0526 -> 'Chip Nenory’ 
d2 -10 - Priorität 
d0 ChlpMen-Obergrenze - Stacklänge 
- Ende Exec-Datenberelch 
—> AddMeaLlst 
a1 :> SysBase 
—> AddLibrary 

a0 FC0778 = Ausn.-Vektoren-Tabelle 
a1 := a0 

a2 Adresse des ersten Vektors 
—> 

aj := Ausnahaevektor 

ln Vektorbereich schreiben 

d0 :* Offset aus Tabelle 

Tabelle nicht zu Ende: -> 

d0 :• AttnFlags 

Bit 0 gesetzt? 

nein: Prozessor MC68000 -> 

a0 :- FC087C 

a1 -> Busfehler-Vektor 

Busfehler-Vektor 

Adressfehler-Vektor 

Supervisor-Aufruf 

GetCC := aove ccr,d0 - rts 

HC 68881 ia System? 

nein: -> 

Switch-Aufruf ändern 
Dispatch-Aufruf ändern 
—> Int Server Initialisieren 
a0 :• Spezialchip-Basisadresse 
DMACON: DMA 0 bis 8 freigeben 
INTENA: Interrupts freigeben 
Forbld-, Disable-Ebene rücksetzen 
—> ROMWack Initialisieren 
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045E 

■oveq 

/0,d1 

d0 als Suonenreglster Ifischen 

0440 

lea 

22(a6),a0 

a0 -> Anfang des Prüfsua^enberelchs 

0444 

■ove.v 

/16,d0 

d0 22: Hortzähler 

0448 FC0448 

add.v 

(a0)+.d1 

25 Horte ln d1 addieren 

044A 

dbra 

d0,FC0448 


044E 

not.v 

d1 

Ergebnis Invertieren 

0450 

0454 

Bove.v 

d1.52(a6) 

und als ChkSua speichern 

0454 :- 

0454 

Exec als Oauertask einrichten 

0454 

lea 

76(pc),a0 

a0 FC04CC: Tabelle f. AllocEntry 

0458 

bsr 

FC191E 

—> AllocEntry 

045C 

■ovea.l 

d0,a2 

a2 -> Anfang des zugeordn. Speichers 

045E 

lea 

10l0(a2),a0 

a0 a2 + $1010 

0462 

lea 

8(a0),a1 

a1 a0 + 8 -> Task Control Struct 

0466 

addl.l 

/10,d0 


046C 

■ove. 1 

d0,5A(a1) 

tc_SPLouer 

0470 

■ove. 1 

a0,5E(a1) 

tc_SPUpper 

0474 

love.1 

a0,56(a1) 

tc_SPReg 

0478 

Bove 

a0,usp 

User-Stackpolnter :• a0 

047A 

clr.b 

9(a1) 

ln_Prl 

047E 

■ove.b 

1.8(al) 

ln_Type (sollte wohl ’/l’ sein!) 

0484 

■ove. 1 

/FC00A8,A(a1) 

ln_Naze -> ’exec.llbrary’ 

048C 

lea 

4A(a1),a0 

a0 -> tc_NeaEntry 

0490 

■ove.l 

a0,(a0) 

List Header Initialisieren 

0492 

addq. 1 

/4,(a0) 


0494 

clr. 1 

4(a0) 


0498 

■ove.l 

a0,8(a0) 


049C 

exg 

a2,a1 

a1 -> Anfang des zugeordn. Speichers 

049E 

bsr 

FC15D8 

—> AddHead 

04A2 

exg 

a2,a1 

a1, a2 zurQcktauschen 

04A4 

■ove.1 

a1,114(a6) 

ThlsTask :» a1 

04A8 

suba.l 

a2,a2 

a2 0 

04AA 

■ovea.l 

a2,a5 

a5 :> 0 

04AC 

bsr 

FC1C48 

—> AddTask 

04B0 

■ovea.l 

114(a6),a1 

a1 -> Task Control Structure 

04B4 

■ove.b 

/2,F(a1) 

tc_State := RUN 

04BA 

bsr 

FC1600 

—> Reoove 

04BE 

andl.v 

/0,sr 

Supervisor-Status löschen 

04C2 

addq.b 

/l,127(a6) 

Forbld 
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04C6 

Jsr 

-8A(a6) 

—> Peralt 

04CA 

bra.s 

FC0500 

—> 

04CC 

04CC i- 

Tabelle 

für Speicheranforderung für Exec-Task 

04CC 

04CC FC04CC 

OC.L 

0 

14 Bytes reserviert für 

04D0 

OC.L 

0 

List Mode 

0404 

OC.L 

0 


0406 

OC.U 

0 


04OA 

OC.U 

1 

■l_NuoEntrles: Zahl der Einträge 

04OC 

OC.L 

10001 

■e_Reqs: Public, Clear 

04E0 

OC.L 

1064 

■e_Length; Angeforderte Bytezahl 

04E4 

04E4 :- 

Tabelle 

für Suche nach residenten Moduln 

04E4 

04E4 FC04E4 

OC.L 

FC0000 

Speicherbereich 1 

04E8 

OC.L 

1000000 


04EC 

OC.L 

FC0000 

Speicherbereich 2 

04F0 

OC.L 

1000000 


04F4 

OC.L 

F00000 

Speicherbereich 5 

04F8 

OC.L 

Fe0000 


04FC 

OC.L 

-1 


0;00 

0500 :- 

Alle residenten Moduln suchen und Initialisieren 

0500 

0500 FC0500 

lea 

-1E(pc),a0 

a0 :> FC04E4 • Suchtabelle 

0504 

bsr 

FC0900 

—> Resident-Liste erzeugen 

0508 

■ove.l 

d0,12C(a6) 

Zeiger auf Resident-Liste 

050C 

050C 

bclr.b 

/I ,BFE001 

8520-A PRA: LEO hell 

0514 

■ove.l 

2E(a6),d0 

d0 CoolCapture-Vektor 

0518 

beq.s 

FC051E 

nicht vorhanden: -> 

051A 

■ovea.l 

d0,a0 

a0 ;• CoolCapture-Vektor 

051C 

jsr 

(a0) 

—> CoolCapture-Routine 

051E FC051E 

■oveq 

/1,d0 

rt_Flag :* Kaltstart 

0520 

■oveq 

/0,d1 

Version 0 

0522 

bsr 

FC0AF0 

—> InitCode (startet OOS) 

0526 

■ove.l 

52(a6),d0 

d0 :• UaroCapture-Vektor 

052A 

beq.s 

FC0550 

nicht vorhanden: -> 

052C 

■ovea.l 

d0,a0 

a0 :• UarnCapture-Vektor 
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B52E 

jsr 

(a0) 

B55B FCB55B 

Boveq 

/D,d8 

B552 FCB552 

clr.l 

-(a7) 

B554 

dbra 

d0.FC0552 

B558 

■ovea.l 

(a7)+.d0-d7/a0-i 

B55C FCB55C 

Jsr 

-72(a6) 

B54B 

Bovea.l 

4,a6 

B544 

bra.s 

FC055C 

8546 



B546 :- 

Prozessor-Typ eraltteln 

B546 



B546 FCB546 

Bovea.l 

a2-a5,-(a7) 

B54A 

■ovea.l 

18,a8 

B54E 

■ovea.l 

2C,a2 

B552 

lea 

2E(pc),a1 

8556 

■ove. 1 

a1,18 

B55A 

■ove.l 

a1,2C 

B55E 

■ovea.1 

a7,a1 

B56B 

BOveq 

/8,d8 

8562 

BOveq 

/0,d1 

8564 

rte 


8566 



8566 

■ove.b 

d1,d4 

8568 

bset.l 

/0,d0 

856C 

BOveq 

/1,d1 

856E 

rte 


8578 



8578 

■ove.b 

d2,d0 

8572 

bset.l 

/l.dB 

8576 

cpgen 

...dl 

8578 



B57A 

tst.l 

dl 

857C 

bne.s 

FC0582 

057E 

bset.l 

/4.d0 

0582 FC0582 

■ovea.l 

a1,a7 

0584 

■ove.1 

a8,18 

8588 

■ove.l 

a2,2C 

058C 

■oveB.l 

(a7)+,a2-a5 

0590 

rts 


0592 




—> HarnCapture-Routlne 
dB 15 (Zähler) 

14 Langvorte in Stack löschen 

Register löschen 
—> Debug 
a6 :• SysBase 
—> Loop 


Register retten 

aB Trapvektor “Illegaler Befehl 

a2 Trapvektor "1111" 

a1 FCB582 

Trap "Illegaler Befehl" setzen 
Trap "1111" setzen 
a1 SSP 

AttnFlags rUcksetzen 
dl ;• B 


; AttnFlags Bit B: H 68B1B 
: dl 1 


; AttnFlags Bit 1; H 63B2B 


AttnFlags Bit 4: M 68881 
a7 vlederherstellen 
Trap "Illegaler Befehl" und 
Trap "1111" vlederherstellen 
a2 und a5 vlederherstellen 
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0592 i- 

Speichergrenze ermitteln 

0592 



0592 FC0592 

Boveq 

/0,d1 

0594 

aove.l 

d1,(a0) 

0596 

■ovea.l 

a0,a2 

0598 

aove.l 

/F2D4B698,d0 

059E FC059E 

lea 

1000(a0),a0 

05A2 

cnpa. 1 

a0,a1 

05A4 

bls.s 

FC05B0 

05A6 

aove.l 

d0,(a0) 

05A8 

tst.l 

(a2) 

05AA 

bne.s 

FC05B0 

05AC 

cmp.l 

(a0),d0 

05AE 

beq.s 

FC059E 

05B0 FC05B0 

aovea. 1 

a0,a3 

05B2 

Jap 

(a5) 

05B4 



05B4 !- 

Fehlerausgang 

05B4 



05B4 FC05B4 

move.v 

/CC0,d0 

05B8 FC05B8 

lea 

DFF000,a4 

05BE 

Bove.v 

/200,100(a4) 

05C4 

Bove.v 

/0,110(a4) 

05CA 

Bove.v 

d0,180(a4) 

05CE 

BOveq 

/A,d1 

05D0 

Boveq 

/FF,d0 

05D2 FC05D2 

bset.b 

/1,BFE001 

05DA 

dbra 

d0,FC05D2 

05DE 

Isr.w 

/I ,d0 

05E0 FC05E0 

bclr.b 

/I ,BFE001 

05E8 

dbra 

d0,FC05E0 

05EC 

dbra 

d1,FC05D2 

05F0 



05F0 :- 

boot / 

lg 

05F0 



05F0 FC05F0 

nove.l 

/20000,d0 

05F6 FC05F6 

subq. 1 

/1,d0 

05F8 

bgt.s 

FC05F6 

05FA 

reset 


05FC 

movea.l 

4,a0 


dl :» 0 

Erste Adresse mit 0 belegen 
Anfangsadresse in a2 retten 
Bltuuster für Test 
a0 un 4 kB erhöhen 
Endadresse erreicht? 

Ja: -> 

Bltnuster abspeichern 
Erste Zelle ia Bereich • 07 
nein: erster Durchlauf beendet -> 
richtiges Bltnuster ln Speicher? 
Ja: welternachen -> 
a3 :• letzte RAM-Adresse + 1 
—> RQcksprung 


Farbkode: Rot+Grün 
a4 :• Spezialchip-Basisadresse 
BPLCON0: Comp. Video Color Enable 
BPL1DAT: Blldschlrnausgabe triggern 
COLOR0: Hintergrundfarbe setzen 
dl :• 10 (Zähler 1) 
d0 :■= 65535 (Zähler 2) 

8520-A PRA: LED dunkel 

—> ca. 0,15s warten 

d0 := 32767 

8520-A PRA: LED hell 

—> ca. 0,08 s warten 

—> Blinken 10 mal wiederholen 


; d0 131072 (Zähler) 

; Uarteschleife ca. 0,3 s 

; Boot-RON einschalten 
j a0 :» Startadresse 
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06M 

J»P 

(a0) 


— 

> Neustart 

0602 






0602 ; . 

Speicher löschen 




0602 






0602 FCel602 

■oveq 

/0,d2 


d2 

:=■ Löschkode 

0604 

sub.l 

a0,d0 


d0 

Länge des Löschbereichs 

0606 

Isr.l 

/2,d0 


durch 4: Anzahl der Langvorte 

0608 

Bove. 1 

d0,d1 


nach dl kopieren 

060A 

svap 

dl 


oberen Teil nach unten holen 

060C 

bra.s 

FC0610 


— 

> 

060E 






060E FC060E 

Bove.l 

d2,(a0)+ 


Löschkode speichern 

0610 FC0610 

dbra 

d0,FC060E 


wiederholen, bis d0 = 0 

0614 

dbra 

dl,FC060E 


wiederholen, bis dl = 0 

0618 

Jap 

(a5) 



•> RQcksprung 

061A 






061A ;- 

RAH iB 

lereich ab C00000 

suchen 


061A 






061A FC061A 

Bovea.l 

a0,a4 


a4 

:» a0 ” Suchbereich Anfang 

061C FC061C 

Bovea.l 

a4,a2 


a2 

a4 

061E 

adda.l 

/40000,a2 


256 kB addieren 

0624 

■ove.v 

/5FFF,INTENA-1000(a2) 

Wenn kein RAM vorhanden ist, wird 

062A 

tst.w 

INTENAR-1000(a2) 



der Bereich ab DFF000 abgebildet 

062E 

bne.s 

FC063E 



Abbildung Hegt nicht vor: -> 

0670 

■ove.v 

/BFFF.INTENA-1000(a2) 

sonst alle Bits setzen 

06?6 

CBpl.V 

/JFFF.INTENAR-1000(a2) 

sind sie gesetzt? 

067C 

beq.s 

FC0644 


ja 

Abbildung liegt vor -> 

063E FC063E 

Bovea.l 

a2,a4 


a4 

:■* a2 

0640 

CBpa.l 

a4,a1 


: a4 

< Suchbereich Ende? 

0642 

bhl.s 

FC061C 


ja: Suche fortsetzen -> 

0644 FC0644 

■ove.v 

/7FFF,INTENA-1000(a2) 

Alle Interrupts sperren 

064A 

CBpa.l 

a0,a4 


Suchadresse * Suchbereich Anfang? 

064C 

bne.s 

FC0650 


nein: -> 

064E 

suba.l 

a4,a4 


a4 

0 ('kein RAM gefunden’) 

0660 FC0650 

J»P 

(a5) 



-> Rücksprung 

0662 






0662 

DC.U 

0 




0664 






0664 ; - 



- 

AddDevice 

0654 
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d654 FC0654 

lea 

19E(a6),a0 

d6$8 

bsr 

FC1682 

065C 

Jsr 

-1AA(a6) 

0660 

rts 


0662 









0662 



0662 FC0662 

bra 

FC141A 

0666 









0666 



0666 FC0666 

aove.l 

a2.-(a7) 

0668 

aovea.l 

a1 ,a2 

d66A 

clr.b 

1F(a1) 

066E 

aovea.l 

d0-d1,-(a7) 

0672 

aovea.l 

a0,a1 

0674 

lea 

19E(a6),a0 

0678 

addq.b 

/1,127(a6) 

067C 

bsr 

FC165A 

0680 

aovea.l 

d0,ad 

0682 

aovea.l 

(a7)+,d0-d1 

0686 

aove.l 

a0,14(a2) 

068A 

beq.s 

FC06AC 

068C 

clr.l 

18(a2) 

0690 

aovea.l 

a2,a1 

0692 

aove.1 

a6.-(a7) 

0694 

aovea.l 

a0,a6 

0696 

Jsr 

-6(a6) 

d69A 

aovea.l 

(a7)+.a6 

069C 

aove.b 

1F(a2),d0 

06Ad 

ext.w 

dd 

06A2 

ext.l 

dd 

06A4 FC06A4 

jsr 

-8A(a6) 

d6A8 

aovea.l 

(a7)+.a2 

06AA 

rts 


d6AC 



06AC FCd6AC 

Doveq 

/FF.d0 

d6AE 

aove.b 

dd,1F(a2) 

0682 

bra.s 

FC06A4 

0684 




; a0 :• Device List Header Adresse 
: —> Forbid, Enqueue, Pernit 
; —> SuaLibrary 

RemDevice 
; —> ReaLibrary 

OpenDevice 
; a2 retten 

: a2 :» a1 -> lORequest 

; io_Error löschen 

; dd und dl retten 

: a1 :■ ad -> Device-Naae 

; ad ;• Device List Header Adresse 

: Forbid 

i —> FindNaae 

; ad dd -> Node 

; dd und dl viederherstellen 

i »io-Device in lORequest eintragen 

; Naaen nicht gefunden: -> 

: *io_Unit in lORequest löschen 
; a1 :• a2 -> lORequest 
: a6 retten 

: a6 :• ad -> Device Node 
i —> Open Device 
; a6 viederherstellen 
j dd lo_Error 

; auf Hort 

: und Langvort erweitern 
: —> Perait 
; ad viederherstellen 


dd -1 
io_Error :• -1 
—> 
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06B4 :- 



CloseDevice 

06B4 

06B4 FC06B4 

addq.b 

/1,127(a6) 

Forbld 

06B8 

■ove.l 

a6,-<a7) 

a6 retten 

06BA 

■ovea.l 

14(a1),a6 

a6 -> io_Devlce 

06BE 

Jsr 

-C(a6) 

—> Close Device 

06C2 

Bovea.l 

(a7>+,a6 

a6 vlederherstellen 

06C4 

Jsr 

-8A(a6) 

—> Peralt 

06C8 

06CA 

06CA :. 

rts 


SendIO 

06CA 

06CA FC06CA 

cir.b 

1E(a1) 

io_Flags :■ 0 

06CE 

Bove.l 

a6,-(a7) 

a6 retten 

06D0 

Bovea.l 

14(a1),a6 

a6 -> lo_Devlce 

06D4 

Jsr 

-1E{a6) 

—> BeglnlO 

06D8 

Bovea.l 

(a7)+.a6 

a6 vlederherstellen 

06DA 

06DC 

06DC :- 

rts 


DoIO 

86DC 

06DC FC06DC 

Bove.l 

a1.-(a7) 

a1 retten 

06DE 

Bove.b 

/1.1E(a1) 

lo_Flags :• 1 

06E4 

Bove.l 

a6.-(a7) 

a6 retten 

06E6 

Bovea.l 

14(a1),a6 

a6 -> lo_Devlce 

06EA 

Jsr 

-1E(a6) 

—> BeglnlO 

06EE 

Bovea.l 

(a7)+,a6 

a6 vlederherstellen 

06F0 

Bovea.l 

(a7)+,a1 

a1 vlederherstellen 

06F2 

06F2 ;- 



MaltIO 

06F2 

06F2 FC06F2 

btst.b 

/0,1E(a1) 

lo_Flags • 0? 

06F8 

bne.s 

FC0744 

nein: -> 

06FA 

Bove.1 

a2.-(a7) 

a2 retten 

06FC 

aovea.l 

a1 ,a2 

a2 a1 -> lORequest 

06FE 

Bovea.l 

E(a2),a0 

a0 Bn_ReplyPort 

0702 

Bove.b 

F(a0),d1 

d1 :» Bp_Flags 

0706 

Boveq 

/0,d0 

d0 :=■ 0 

0708 

bset.l 

d1,d0 

Bp_Flags-Blt setzen 

070A 

Bove.v 

/4000,INTENA 

alle Interrupts abschalten 
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0712 

addq.b 

/1,126(a6) 

Dlsable 

0716 FC0716 

capl.b 

/7,8(a2) 

ln_Type - nt_ReplyHsg? 

071C 

beq.s 

FC0724 

Ja: -> 

071E 

Jsr 

-15E(a6) 

—> Halt 

0722 

bra.s 

FC0716 

—> Loop 

0724 




0724 FC0724 

Dovea. 1 

a2,a1 

a1 :• a2 -> lORequest 

0726 

Bovea. 1 

(a1).a0 

Remove Node 

0728 

novea. 1 

4(a1),a1 


0728 

BOvea. 1 

4(a1),a1 


072C 

Bove.l 

a0,(a1) 


072E 

aove.l 

a1,4(a0) 


0752 

subq.b 

/1.126(a6) 

Enable 

0756 

bge.s 

FC0740 

noch keine Freigabe: -> 

0758 

move.v 

/C000,INTENA 

Interrupts freigeben 

0740 FC0740 

Bovea.1 

a2,a1 

a1 :» a2 -> lORequest 

0742 

Bovea.l 

(a7)+.a2 

a2 wiederherstellen 

0744 FC0744 

Bove.b 

1F(a1).d0 

d0 :* lo_Error 

0748 

ext.w 

d0 

auf Hort 

074A 

ext.l 

d0 

und Langwort erweitern 

074C 

rts 



074E 







ChecklO 




074E 




074E FC074E 

btst.b 

/0.1E(a1) 

lo_Error Bit 0 gesetzt? 

0754 

beq.s 

FC075A 

nein: -> 

0756 

Bove. 1 

a1.d0 

d0 :" TRUE 

0758 

rts 



075A 




075A FC075A 

CBpl.b 

/7,8(a1) 

nt_ReplyHsg? 

0760 

beq.s 

FC0766 

Ja: -> 

0762 

soveq 

/0,d0 

d0 := FALSE 

0764 

rts 



0766 




0766 FC0766 

Bove.l 

a1,d0 

d0 := TRUE 

0768 

rts 



076A 







AbortIO 




076A 




076A FC076A 

Bove.l 

a6.-(a7) 

a6 retten 


Seite 82 


Amiga Know-how 









Amiga Exec 33.192 


076C 

0770 

0774 

Bovea. 1 

Jsr 

Bovea.l 

14(a1),a6 

-24(a6) 

(a7)+,a6 

a6 -> io_Device 
—> AbortIO 

a6 vlederherstellen 

0776 

0778 

0778 :- 

rts 


Offsets 

der AusnahBe-Vektoren 

0778 

0778 FC0778 

DC.U 

0064 

FC07DC 

V02 

Busfehler 

077A 

DC.U 

0066 

FC07DE 

V05 

Adressfehler 

077C 

DC.U 

0068 

FC07E0 

V04 

Illegaler Befehl 

077E 

DC.U 

006A 

FC07E2 

V05 

Division durch Null 

0780 

DC.U 

006C 

FC07E4 

V06 

CHK 

0782 

DC.U 

006E 

FC07E6 

V07 

TRAPV 

0784 

DC.U 

015A 

FC08D2 

V08 

Privilegverletzung 

0786 

DC.U 

0072 

FC07EA 

V09 

TRACE 

0788 

DC.U 

0074 

FC07EC 

V0A 

1010 

078A 

DC.U 

0076 

FC07EE 

V0B 

1111 

078C 

DC.U 

0078 

FC07F0 

V0C 

reserviert 

078E 

DC.U 

007A 

FC07F2 

V0D 

reserviert 

0790 

DC.U 

007C 

FC07F4 

V0E 

reserviert 

0792 

DC.U 

007E 

FC07F6 

V0F 

n. Inltialls. Interr. 

0794 

DC.U 

0080 

FC07F8 

V10 

reserviert 

0796 

DC.U 

0080 

FC07F8 

VII 

reserviert 

0798 

DC.U 

0080 

FC07F8 

V12 

reserviert 

079A 

DC.U 

0080 

FC07F8 

V13 

reserviert 

079C 

DC.U 

0080 

FC07F8 

V14 

reserviert 

079E 

DC.U 

0080 

FC07F8 

V15 

reserviert 

07A0 

DC.U 

0080 

FC07F8 

V16 

reserviert 

07A2 

DC.U 

0080 

FC07F8 

V17 

reserviert 

07A4 

DC.U 

0080 

FC07F8 

V18 

reserviert 

07A6 

DC.U 

04DA 

FC0C52 

V19 

Interrupt 1 

07A8 

DC.U 

092E 

FC0CA6 

VIA 

Interrupt 2 

07AA 

DC.U 

0960 

FC0CD8 

V1B 

Interrupt 5 

07AC 

DC.U 

05B8 

FC0DJ0 

V1C 

Interrupt 4 

07AE 

DC.U 

0646 

FC0DBE 

V1D 

Interrupt 5 

07B0 

DC.U 

068C 

FC0E04 

V1E 

Interrupt 6 

07B2 

DC.U 

06D2 

FC0E4A 

VIF 

Interrupt 7 

07B4 

DC.U 

0082 

FC07FA 

V20 

Trap /0 

07B6 

DC.U 

0084 

FC07FC 

V21 

Trap /I 

07B8 

DC.U 

0086 

FC07FE 

V22 

Trap /2 
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07BA 

DC.U 

0088 

FC0800 

V23 

Trap 

/3 

07BC FC07BC 

DC.U 

008A 

FC0802 

V24 

Trap 

/4 

07BE 

DC.U 

008C 

FC0804 

V25 

Trap 

/5 

07C0 

DC.U 

008E 

FC0806 

V26 

Trap 

/6 

07C2 

DC.U 

0090 

FC0808 

V27 

Trap 

/7 

07C4 

DC.U 

0092 

FC080A 

V28 

Trap 

/8 

07C6 

DC.U 

0094 

FC080C 

V29 

Trap 

/9 

07C8 

DC.U 

0096 

FC080E 

V2A 

Trap 

/A 

07CA 

DC.U 

0098 

FC0810 

V2B 

Trap 

/B 

07CC 

DC.U 

009A 

FC0812 

V2C 

Trap 

/C 

07CE 

DC.U 

009C 

FC0814 

V2D 

Trap 

/D 

07D0 

DC.U 

009E 

FC0816 

V2E 

Trap 

/E 

07D2 

DC.U 

00A0 

FC0818 

V2F 

Trap 

/F 

07D4 

DC.U 

0 





07D6 

DC.U 

0 





07D8 







0708 ;- 

Ausnahme-Aufrufe 





07D8 







07D8 

bsr.s 

FC0828 

V00 




07DA FC07DA 

bsr.s 

FC0828 

V01 




07DC FC07DC 

bsr.s 

FC08JA 

V02 




07DE FC07DE 

bsr.s 

FC083A 

V0J 




07E0 FC07E0 

bsr.s 

FC0850 

V04 




07E2 FC07E2 

bsr.s 

FC0850 

V05 




07E4 FC07E4 

bsr.s 

FC0850 

V06 




07E6 FC07E6 

bsr.s 

FC0850 

V07 




07E8 

bsr.s 

FC0850 

V08 




07EA FC07EA 

bsr.s 

FC0850 

V09 




07EC FC07EC 

bsr.s 

FC0850 

V0A 




07EE FC07EE 

bsr.s 

FC0850 

V0B 




07F0 FC07F0 

bsr.s 

FC0850 

V0C 




07F2 FC07F2 

bsr.s 

FC0850 

V0D 




07F4 FC07F4 

bsr.s 

FC0828 

V0E 




07F6 FC07F6 

bsr.s 

FC0828 

V0F 




07F8 FC07F8 

bra.s 

FC081A 

V10.V18 




07FA 







07FA FC07FA 

bsr.s 

FC0866 

V20 




07FC FC07FC 

bsr.s 

FC0866 

V21 




07FE FC07FE 

bsr.s 

FC0e66 

V22 




0800 FC0800 

bsr.s 

FC0866 

V23 
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0802 FC0802 

bsr.s 

FC0866 

V24 

0804 FC0804 

bsr.s 

FC0866 

V25 

0806 FC0806 

bsr.s 

FC0866 

V26 

0808 FC0808 

bsr.s 

FC0866 

V27 

080A FC080A 

bsr.s 

FC0866 

V28 

080C FC080C 

bsr.s 

FC0866 

V29 

080E FC080E 

bsr.s 

FC0866 

V2A 

0810 FC0810 

bsr.s 

FC0866 

V2B 

0812 FC0812 

bsr.s 

FC0866 

V2C 

0814 FC0814 

bsr.s 

FC0866 

V2D 

0816 FC0816 

bsr.s 

FC0866 

V2E 

0818 FC0818 

bsr.s 

FC0866 

V2F 

081A 




081A j- 

V10 bis 

V18 


081A 




081A FC081A 

orl .w 

/700.sr 

IR-Ebene 7 setzen 

081E 

■ove.l 

/8100000A,-(a7) 

Alert-Kode ’AN_BogusExcpt’ 

0824 

bra 

FC2FB4 

—> Alert 

0828 




0828 :- 

V0E. V0F 


0828 




0828 FC0828 

ori.v 

/700.sr 

IR-Ebene 7 setzen 

082C 

subl.l 

/FC07DA.(a7) 

Vektornumaer erzeugen 

0832 

Isr.w 

2(a7) 


0836 

bra 

FC2FB4 

—> Alert 

083A 




083A j- 

V02, V03: Busfehler, Adressfehler 

083A 




083A FC083A 

subl.l 

/FC07DA.(a7) 

Vektornuoner erzeugen 

0840 

Isr.w 

2(a7) 


0844 

btst.b 

/5.C(a7) 

Supervisor-Modus? 

084A 

beq.s 

FC0894 

nein: -> 

084C 

bra 

FC2FB4 

—> Alert 

0830 




0850 :- 

V08 bis 

V0D 


0850 




0850 FC0850 

subl.l 

/FC07DA,(a7) 

VektornuniDer erzeugen 

0856 

Isr.w 

2(a7) 


085A FC085A 

btst.b 

/5.4(a7) 

Supervisor-Modus? 

0860 

beq.s 

FC0894 

nein: -> 
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f)862 

bra 

FC2FB4 

—> Alert 

0866 




0866 :- 

TRAP-Befehl 


0866 




0866 FC0866 

subl.l 

/FC07BC.(a7) 

Vektornuamer erzeugen 

086C 

Isr.w 

2(a7) 


0870 

btst.b 

/5.4(a7) 

Supervisor-Modus? 

0876 

bne 

FC2FB4 

Ja: Alert -> 

087A 

bra.s 

FC0894 

—> 

087C 




087C :. 

Busfehler / Adressfehler bei M 68010/68020 

087C 




087C FC087C 

clr.l 

-(a7) 

Langwort ia Stack ISschen 

087E 

move.v 

A(a7).2(a7) 

Vektor-Offset eintragen 

0884 

andi.u 

/FFF,2(a7) 

und isolieren 

088A 

Isr.w 

2(a7) 

durch 4 dividieren 

088E 

Isr.w 

2(a7) 

ergibt die Vektor-Nuaaer 

0892 

bra.s 

FC085A 

—> 

0894 




0894 :- 

Ausgang 

für Task-Trap 


0894 




0894 FC0894 

moven.l 

a0-a1,-(a7) 


0898 

oovea.1 

4,a0 

a0 := SysBase 

089C 

novea.1 

114(a0),a0 

a0 ThisTask 

08A0 

aove.l 

52(a0).4(a7) 

tc_TrapCode-Vektor ln Stack 

08A6 

movea. 1 

(a7)+,a0 

a0 voa Stack nehaen 

08A8 

rts 


—> TaskTrap-Routine 

08AA 




08AA ;- 



Supervisor 

08AA 




08AA FC08AA 

orl.w 

/2000,sr 

Supervisor-Flag setzen 

08AE 

pea 

FC08B8 

Rückkehradresse auf Stack 

08B4 

nove 

sr,-(a7) 

Statusregister auf Stack 

08B6 

Jmp 

(a5) 

—> 

08B8 




08B8 FC08B8 

rts 



08BA 




08BA :- 

Supervisor für M 68010/68020 

08BA 




08BA FC08BA 

ori.w 

/2000,sr 

Supervisor-Flag setzen 
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08BE 

subq.l 

/8,a7 

Platz für 8 Bytes la Stack schaffen 

08C0 

■ove 

sr,(a7) 

Statusregister auf Stack 

08C2 

■ove.l 

/FO08B8,2(a7) 

Rückkehradresse auf Stack 

08CA 

Bove.v 

/20,6(a7) 

Foraatkode 0, Vektoroffset auf Stack 

08D0 

Jap 

(a5) 

—> 

08D2 




0802 ;- 

Privilegverletzung 


0802 




0802 FC08O2 

cspi.l 

/FO08AA,2(a7) 

erzeugt durch 'Supervisor 68000’? 

08OA 

beq.s 

FO08E6 

Ja: -> 

0800 

capi.l 

/FO08BA.2(a7) 

erzeugt durch 'Supervisor 68010+’? 

08E4 

bne.s 

FO08F0 

nein: -> 

08E6 FC08E6 

aove.l 

/FO08BB,2(a7) 

Rückkehradresse auf Stack 

08EE 

Jap 

(a5) 

—> 

08F0 




08F0 FC08F0 

orl .V 

/700,sr 

IR-Ebene 7 setzen 

08F4 

aove.l 

/8.-(a7) 

Vektornuaaer auf Stack 

08FA 

bra 

FO085A 

—> 

08FE 




08FE 

00.u 

0 


0900 




0900 :- 

Liste aller residenten Moduln erzeugen 

0900 




0900 FC0900 

Bovea. 1 

dJ-d4/a2-a4.-(a7) 

Register retten 

0904 

link 

a5,/-E 

Platz für List Header schaffen 

0908 

aovea. 1 

a7,a3 

a3 :» a7 -> List Header 

090A 

aove.l 

a5,(aj) 

List Header Initialisieren 

0900 

addq.l 

/4.(a3) 


090E 

clr. 1 

4(a5) 


0912 

aove.l 

aJ,8(aJ) 


0916 

aovea. 1 

a0,a2 

a2 := a0 -> Suchberelchs-Tabelle 

0918 FO0918 

tst.l 

(a2) 

Langvort ln Tabelle 

091A 

bai.s 

FC0926 

Tabellenende: -> 

0910 

aovea. 1 

(a2)+,a4 

a4 -> Suchbereich-Anfang 

091E 

aove.l 

(a2)+,d4 

d4 -> Suchbereich-Ende 

0920 

bsr 

FO0948 

—> Bereich durchsuchen 

0924 

bra.s 

FO0918 

—> Loop 

0926 




0926 FO0926 

bsr 

FC0A5C 

—> SuaKlckOata 

092A 

cap.l 

22A(a6),d0 

d0 = KickChkSua? 
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092E 

bne.s 

FC093C 

0930 

bsr 

FC0A94 

0934 

tst.l 

d0 

0936 

beq.s 

FC093C 

0938 

bsr 

FC0A14 

093C FC093C 

bsr 

FC09DE 

0940 

unlk 

a5 

0942 

aovea.l 

(a7)+,d3-d4/a2 

0946 

rts 


0948 

0948 FC0948 

aovea.l 

d2/a5.-(a7) 

094C 

Bove.w 

/4AFC,d2 

0930 FC0930 

aove.l 

d4,d0 

0952 

sub.l 

a4,d0 

0954 

bls.s 

FC097E 

0956 

Isr.l 

/1,d0 

0958 

subq.l 

/t,d0 

095A 

aove.l 

d0,d1 

095C 

swap 

d1 

095E 

bra.s 

FC0962 

0960 

0960 FC0960 

cap.w 

(a4)+,d2 

0962 FC0962 

dbeq 

d0,FC0960 

0966 

dbeq 

d1,FC0960 

096A 

bne.s 

FC097E 

096C 

lea 

-2(a4),a5 

0970 

capa.l 

(a4).a5 

0972 

bne.s 

FC0962 

0974 

bsr 

FC0964 

0978 

aovea.l 

6(a5),a4 

097C 

bra.s 

FC0950 

097E 

097E FC097E 

aovea.l 

(a7)+,d2/a5 

0982 

rts 


0984 

0984 FC0984 

aovea.l 

a3,a0 

0986 

aovea.l 

E(a5),a1 

098A 

bsr 

FC165A 

098E 

tst.l 

d0 

0990 

beq.s 

FC09B8 


nein: -> 

—> Speicherplatz reservieren 
d0 - 0? 

Ja: -> 

—> 

—> Liste anlegen 

List Header wieder freigeben 

Register vlederherstellen 


Register retten 

d2 :« Kennwort ('Illegaler Befehl’) 

d0 :• d4 • Suchberelch'Ende 

d0 :• a4~d0 > Suchberelch-Länge 

Suchbereich leer: -> 

d0 :• d0/2 • Länge ln Horten 

d0 :• d0-1 • Uortzähler 

d0 nach dl kopieren 

dl.w :- H-Hort des Uortzählers 

—> 

; Kennwort alt Speicherwort vergleichen 
: bis Gleichheit festgestellt wird 
; oder Suchbereich zu Ende 
; Suchbereich zu Ende: -> 

: aS -> Kennwort 

; Folgt dea Kennwort seine Adresse? 

; nein: weltersuchen -> 

: —> Node ln Liste elnfügen 
; a4 -> Ende des residenten Moduls 
; —> Loop 

; Register wiederherstellen 


a0 :• a3 -> List Header 
a1 -> rt_LlbNaBe 
—> FlndNaae 
Naae schon ln der Liste? 
nein: neuen Node erzeugen -> 
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0992 

Bovea.l 

d0,a1 

0994 

aovea.l 

E(a1),a0 

0998 

Bove.b 

B(a9),d0 

099C 

cap.b 

B(a0),d0 

09A0 

blt.s 

FC09OC 

09A2 

bgt.s 

FC09AE 

09A4 

aove.b 

O(a9),d0 

09A8 

cap.b 

O(a0),d0 

09AC 

blt.s 

FC09OC 

09AE FC09AE 

Bove.l 

a1,d0 

09B0 

bsr 

FC1600 

09B4 

aovea.l 

d0,a1 

09B6 

bra.s 

FC09C6 

09B8 

09B8 FC09B8 

Boveq 

/0,d1 

09BA 

Boveq 

/12,d0 

09BC 

jsr 

-C6(a6) 

09C0 

tst.l 

d0 

09C2 

beq.s 

FC09OC 

09C4 

aovea.l 

d0,a1 

09C6 FC09C6 

aove.b 

0(a5).9(a1) 

09CC 

Bove. 1 

E(a9),A(a1) 

09D2 

Bove.l 

a9,E(a1) 

0906 

aovea.l 

a;,a0 

0908 

bsr 

FC16J4 

890C FC09OC 

rts 


09OE 

09OE FC09OE 

Boveq 

/4,d0 

09E0 

Bove.l 

(a3),d4 

09E2 FC09E2 

aovea.l 

d4,a1 

09E4 

Bove.l 

(a1),d4 

09E6 

beq.s 

FC09EC 

09E8 

addq.l 

/4.d0 

09EA 

bra.s 

FC09E2 

09EC 

09EC FC09EC 

Bove.l 

/10001,d1 

09F2 

Jsr 

-C6(a6) 

09F6 

aovea.l 

d0,a2 

09F8 

Bove.l 

d0.d3 

09FA 

Bove. 1 

(B3),d4 


a1 :• d0 -> Node Bit dea Namen 
a0 -> Struktur alt dea Naaen 
d0 :■ gerade gefundene Version 
vergleichen Bit früher gefundenen 
gerade gefundene kleiner: -> 
früher gefundene kleiner: -> 
d0 :• gerade gefundene Priorir&t 
vergleichen ait früher gefundenen 
gerade gefundene kleiner: -> 
a1 in d0 retten 

—> Reaove (früher gefundenen) 
a1 viederherstellen 
—> neuen Node einfügen 

dl :• Speichertyp: beliebig 
d0 :• Zahl der benötigten Bytes 
—> AllocNea 
Speicher bereitgestellt? 
nein: -> 

a1 :• d0 -> neuer Node 
Priorität eintragen 
Zeiger auf Naaen eintragen 
Zeiger auf Struktur eintragen 
a0 :• aj -> List Header 
—> Enqueue 


d0 als Bytezähler initialisieren 

d4 :• lh_Head 

a1 -> nächster Node 

d4 :“ ln_Succ 

letzter Node: -> 

4 Bytes für Adresse addieren 
—> Loop 

d1 :- Speichertyp: public, clear 
—> AllocNea (für Resident-Tabelle) 
a2 :• d0 -> Speicherbereich 
dS :> d0 
d4 :• Ih Head 
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09FC 

FC09FC 

movea.l d4,a1 

a1 -> nächster Node 

09FE 


nove.l (a1),d4 

d4 :* ln_Succ 

0A00 


beq.s FC0A0E 

letzter Node: -> 

0A02 


move.l E(a1),(a2)+ 

Zeiger auf Modul ln Tabelle eintragen 

0A06 


Doveq /12,d0 

Länge des Node • 18 Bytes 

0A08 


Jsr -D2(a6) 

—> FreeMea 

0A0C 


bra.s FC09FC 

—> Loop 

0A0E 

0A0E 

FC0A0E 

clr.1 (a2) 

Endeaarke an Tabelle anfOgen 

0A10 


Bove.l d3,d0 

d0 := dj -> Resident-Tabelle 

0A12 

0A14 

0A14 


rts 


0A14 

0A14 

FC0A14 

■oven.l a2/a5,-(a7) 

Register retten 

0A18 


Bove.l 226(a6),d0 

d0 :* KickTagPtr 

0A1C 


beq.s FC0A56 

- 0: -> 

0A1E 


novea.l d0,a2 

a2 := d0 = KickTagPtr 

0A20 

FC0A20 

Bove.l (a2)+,d0 

Nächste Adresse aus Liste 

0A22 


beq.s FC0A56 

Endeaarke: -> 

0A24 


bBl.s FC0A2E 

Link zur Fortsetzungstabelle: -> 

0A26 


Bovea.l d0,a9 

a9 :• d0 • Adresse aus Liste 

0A28 


bsr FC0984 

—> Node in Liste elnfügen 

0A2C 


bra.s FC0A20 

—> Loop 

0A2E 

0A2E 

FC0A2E 

bclr.l /1F.d0 

Bit 31 ISschen 

0A32 


aovea.l d0,a2 

a2 -> Fortsetzungstabelle 

0A34 


bra.s FC0A20 

—> Loop 

0A36 

0A36 

FC0A36 

Bovem.l (a7)+,a2/a5 

Register wiederherstellen 

0A3A 

0A5C 

0A3C 


rts 

SumKickData 

0AJC 

0A3C 

FC0A3C 

Boven.l d2-d4,-(a7) 

Register retten 

0A40 


lea 222(a6),a0 

a0 -> KlckMeaPtr 

0A44 


aovea.l (a0),d3-d4 

d3 :- KlckMeaPtr, d4 :- KickTagPtr 

0A48 


clr.l <a0)+ 

KlckMeaPtr 0 

0A4A 


clr.l (a0)+ 

KickTagPtr := 0 

0A4C 


Boveq /FF,d0 

d0 := -1 
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0A4E 

■ove.l 

d5,d2 

0A70 FC0A70 

tst.l 

d2 

0A52 

beq.s 

FC0A68 

0A54 

aovea.l 

d2,a0 

0A56 

nove.l 

(a0),d2 

0A$8 

Bove.v 

E(a0),d1 

0A7C 

add.v 

d1,d1 

0A7E 

addl.v 

/4.d1 

0A62 

bsr 

FC0A8E 

0A66 

bra.s 

FC0A90 

0A68 



0A68 FC0A68 

■ove. 1 

d4,d2 

0A6A 

beq.s 

FC0A80 

0A6C 

aovea.l 

d2,a0 

0A6E 

bra.s 

FC0A72 

0A70 



0A70 FC0A70 

add.l 

d2,d0 

0A72 FC0A72 

Bove.l 

(a0)+,d2 

0A74 

beq.s 

FC0A80 

0A76 

bpl.s 

FC0A70 

0A78 

bclr.l 

/1F.d2 

0A7C 

Bovea. 1 

d2,a0 

0A7E 

bra.s 

FC0A72 

0A80 



0A80 FC0A80 

■oven.l 

d7-d4,222(a6) 

0A86 

■ovem.l 

(B7)+,d2-d4 

0A8A 

rts 


8A8C 



0A8C FC0A8C 

add.l 

(a0)+,d0 

0A8E FC0A8E 

dbra 

d1,FC0A8C 

0A92 

rts 


0A94 



0A94 :- 

KlckMen- 

-Speicherzuordnung 

0A94 



0A94 FC0A94 

Bove.l 

222(a6),d4 

0A98 FC0A98 

tst.l 

d4 

0A9A 

beq.s 

FC0ABC 

0A9C 

movea.l 

d4,a2 

0A9E 

move.1 

(a2).d4 

0AA0 

lea 

E(a2),a2 


i d2 dj - KlckNemPtr 
; d2 - 0? 

: Ja: -> 

: a0 d2 - KlckHemPtr 
j d2 -> nächster Node 
; dl :■ i»l_NuBEntrles 
; aal 2 

; + 4 • Länge der NL-Struktur ln LH 
. —> prüfsumne ln d0 berechnen 
: —> Loop 

: d2 :> d4 - KlckTagPtr 
: « 0 : -> 

: a0 1 = d2 - KlckTagPtr 
; —> 

; d2 zur PrQfsunne addieren 
; d2 ;• nächste Adresse aus Tabelle 
; Endemarke: -> 

; Gültige Adresse: -> 

; Bit 71 löschen 
; a0 -> Fortsetzungstabelle 
: —> Loop 

j KlckHeaPtr und KlckTagPtr wlederherst. 
; Register vlederherstellen 


; nächstes Langvort zu d0 addieren 
; wiederholen bis dl • 0 -> 


d4 :=■ KlckHemPtr 
- 0 ? 
ja: -> 

a2 :• d4 -> HL-Struktur 
d4 -> nächster Node 
a2 -> ml NunEntrles 
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BAA4 


Bove.v 

(a2)+,d5 

BAA6 


Boveq 

/1,dB 

BAA8 


bra.s 

FCBAB4 

BAAA 




BAAA 

FCBAAA 

novea.1 

(a2)+,a1 

BAAC 


move. 1 

(a2)+,dB 

BAAE 


Jsr 

-CC(a6) 

BAB2 


tst. 1 

dB 

BAB4 

FCBAB4 

dbeq 

d5, FCBAAA 

BAB8 


beq.s 

FCBABE 

BABA 


bra.s 

FCBA98 

BABC 




BABC 

FCBABC 

BOveq 

/l.dB 

BABE 

BACB 

BACB 

FCBABE 

rts 


t 



BACB 




BACB 

FCBACB 

movem.l 

a2-a5.-(a7) 

BAC4 


movea. 1 

12C(a6),a2 

BACB 


movea. 1 

a1,a3 

BACA 

FCBACA 

move.l 

(a2)+.d8 

BACC 


beq.s 

FCBAEA 

BACE 


bgt.s 

FCBAD8 

BADB 


bclr.l 

/IF.dB 

BAD4 


movea.1 

dB,a2 

BAD6 


bra.s 

FCBACA 

BADB 




BADS 

FCBAD8 

novea. 1 

dB,a1 

BADA 


movea. 1 

a5,aB 

BADC 


novea. 1 

E(a1),a1 

BAEB 

FCBAEB 

capm.b 

(aB)+,(a1)+ 

BAE2 


bne.s 

FCBACA 

BAE4 


tst.b 

-KaB) 

BAE8 


bne.s 

FCBAEB 

BAEA 

FCBAEA 

movem.l 

(a7)+,a2-a3 

BAEE 

BAFB 

BAFB 


rts 





BAFB 




BAFB 

FCBAFB 

movem.l 

d2-d5/a2,-(a7) 


: dj :• iiil_NumEntrles 

; dB 1 (ok-Flag) 

. — > 

j a1 ■e_Addr 

: dB iiie_Length 

j —> AllocAbs 
; Speicher zugeordnet? 

; wenn ja, nächsten Eintrag bearbeiten 
; sonst Rückkehr nit dB ' B 
; —> Loop 

j dB :• 1 (ok-Flag) 


FlndResident 

: Register retten 
; a2 -> Resident-Tabelle 
: aj a1 -> Naue des Moduls 
; dB ;• Modul-Adresse aus Tabelle 
j Tabellenende erreicht: -> 

; gültige Adresse: -> 

: Bit 51 löschen ergibt Linkadresse 
; a2 :- dB -> Fortsetzung der Tabelle 
: —> Loop 

: a1 := dB • Modul-Adresse 
: a5 :• aB -> Name des gesuchten Moduls 
; a1 -> Nase des Moduls ln Tabelle 
; Naaen vergleichen 

; bei Ungleichheit: Suche fortsetzen -> 
; Endemarke erreicht? 
i nein: Vergleich fortsetzen -> 
i Register wiederherstellen 

InitCode 

j Register retten 
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0AF4 

■ovea.l 

12C(a6),a2 

0AF8 

■ove.b 

d0,d2 

0AFA 

■ove. b 

dl.dJ 

0AFC FC0AFC 

aove. 1 

(a2)+,d0 

0AFE 

beq.s 

FC0B22 

0B00 

bgt.s 

FC0B0A 

0B02 

bclr.l 

/1F,d0 

0B06 

Bovea.l 

d0,a2 

0B08 

bra.s 

FC0AFC 

0B0A 



0B0A FC0B0A 

Bovea.l 

d0,a1 

060C 

CBp.b 

B(a1).d3 

0B10 

bgt.s 

FC0AFC 

0B12 

Bove.b 

A(a1),d0 

0BI6 

and.b 

d2,d0 

0B18 

beq.s 

FC0AFC 

0B1A 

moveq 

/0,d1 

0B1C 

jsr 

-66(a6) 

0B20 

bra.s 

FC0AFC 

0B22 



0B22 FC0B22 

BOVeB.l 

(a7)+,d2-d3/a2 

0B26 

rts 


0B28 









0B28 



0B28 FC0B28 

btst.b 

/7,A{a1) 

0B2E 

bne.s 

FC0B3C 

0B70 

Bovea.l 

16(a1),a1 

0BJ4 

Boveq 

/0,d0 

0B76 

Bovea.l 

dl ,a0 

0B78 

jsr 

(a1) 

0B7A 

bra.s 

FC0B7E 

0B7C 



0B3C FC0B3C 

BOVeB.l 

al-a2,-(a7) 

0B40 

aovea.l 

16(a1),a1 

0B44 

moven.l 

(a1),d0/a0-a2 

0B48 

jsr 

-54(a6) 

0B4C 

BOVeB. 1 

(a7)+,a0/a2 

0B70 

Bove.l 

d0.-(a7) 

0B72 

beq.s 

FC0B7C 


j a2 -> Resident-Tabelle 
; d2 :* d0 * rt-Flags 
: d3 := d1 * Version 
; d0 :• Modul-Adresse aus Tabelle 
: Tabellenende erreicht: -> 

: gültige Adresse: -> 

; Bit 71 löschen ergibt Linkadresse 
: a2 :• d0 -> Fortsetzung der Tabelle 
: —> Loop 

: a1 Modul-Adresse 
; Version kleiner als angefordert? 

: ja: veitersuchen -> 

: d0 :■= rt_Flags 
; angegebene Flags gesetzt? 

: nein: ueitersuchen -> 

: dl :" 0 

j —> InltResldent 
i —> Loop 

: Register wiederherstellen 


InltResldent 

Autolnit-Flag gesetzt? 
ja: -> 

a1 -> Initialisierungs-Routine 
d0 :- 0 
a0 :> dl 

—> Modul Initialisieren 
—> 

Register retten 
a1 -> Inltlalislerungs-Daten 
Register Initialisieren 
—> MakeLlbrary 
Register wiederherstellen 
Modul-Adresse auf Stack 
nicht genügend Speicher: -> 
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0B54 

Bovea.l 

d0,a1 

a1 := d0 -> Modul 

0B?6 

aove.b 

C(a0),d0 

d0 :» rt_Type 

mk 

copl.b 

/5.d0 

'Device'? 

0BBE 

bne.s 

FC0B66 

nein: -> 

0B60 

Jsr 

-1B0(a6) 

—> AddDevice 

0B64 

bra.s 

FC0B7C 

—> 

0B66 




0B66 FC0B66 

copl.b 

/9,d0 

'Library'? 

0B6A 

bne.s 

FC0B72 

nein: -> 

0B6C 

Jsr 

-18C(a6) 

—> AddLibrary 

0B70 

bra.s 

FC0B7C 

—> 

0B72 




0B72 FC0B72 

capi.b 

/8,d0 

'Resource'? 

0B76 

bne.s 

FC0B7C 

nein: -> 

0B78 

Jsr 

-1E6(a6) 

—> AddResource 

0B7C FC0B7C 

nove. 1 

(a7)+.d0 

d0 :■ Modul-Adresse vob Stack 

0B7E FC0B7E 

rts 



0B80 




0B80 ;- 



InltStruct Subroutinen 

0B80 




0B80 ;- 

Byte, Repeat 


0B80 




0B80 FC0B80 

move.b 

(a1)+.d1 

nächstes Byte aus Tabelle 

0B82 FC0B82 

Bove.b 

d1,(a0)+ 

(d0+1)-Bal kopieren 

0B84 

dbra 

d0,FC0B82 


0B88 

bra.s 

FC0BD6 

—> 

0B8A 




0B8A ;- 

APTR, Repeat/Count (nicht zulässlgl) 

0B8A 




0B8A FC0B8A 

BOVeD. 1 

d7/a5-a6,-(a7) 

Register retten 

0B8E 

Bove.l 

/81000007,d7 

Alert-Kode 'AN_InitAPtr' 

0B94 

Bovea. 1 

4,a6 

a6 :> SysBase 

0B98 

Jsr 

-6C(a6) 

—> Alert 

0B9C 

BoveB. 1 

(a7)+,d7/a5-a6 

Register ulederherstellen 

0BA0 




0BA0 :- 

Languort, Repeat 


0BA0 




0BA0 FC0BA0 

Bove.l 

a1,d1 

a1, falls ungerade, auf 

0BA2 

addq.l 

/1,d1 

nächste Hortgrenze erhöhen 

0BA4 

andl .b 

/FE.dl 
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0BA8 

Bovea.l 

d1,a1 

0BAA 

aove.l 

(a1)+,d1 

0BAC FC0BAC 

Bove. 1 

d1,(a0)+ 

0BAE 

dbra 

d0,FC0BAC 

0BB2 

bra.s 

FC0BD6 

0BB4 



0BB4 :- 

Hort, Repeat 

0BB4 



0BB4 FC0BB4 

Bove.l 

a1,d1 

0BB6 

addq.l 

/1,d1 

0BB8 

andl.b 

/FE,dl 

0BBC 

Bovea.l 

d1,a1 

0BBE 

■ove.v 

(a1)+,d1 

0BC0 FC0BC0 

aove.v 

d1,(a0)+ 

0BC2 

dbra 

d0,FC0BC0 

0BC6 

bra.s 

FC0BD6 

0BC8 









0BC8 



0BC8 FC0BC8 

Bovea.l 

a2,a0 

0BCA 

Isr.w 

/1,d0 

0BCC 

bra.s 

FC0BD0 

0BCE 



0BCE FC0BCE 

clr.u 

(a0)+ 

0BD0 FC0BD0 

dbra 

d0,FC0BCE 

0BD4 

Bovea.l 

a2,a0 

0BD6 FC0BD6 

clr.w 

d0 

0BD8 

Bove.b 

(a1)+,d0 

0BDA 

beq.s 

FC0CJ8 

0BDC 

bclr.l 

/7,d0 

0BE0 

beq.s 

FC0BFC 

0BE2 

bclr.l 

/6,d0 

8BE6 

beq.s 

FC0BF4 

0BE8 

subq.l 

/1,a1 

0BEA 

Bove.1 

(a1)t,d1 

0BEC 

andl.l 

/FFFFFF,d1 

0BF2 

bra.s 

FC0BF8 

0BF4 



0BF4 FC0BF4 

Boveq 

/0,d1 

0BF6 

Bove.b 

(a1)+,d1 


; nächstes Langvort aus Tabelle 
; (d0+1)-Bal kopieren 

. —> 


; a1, falls ungerade, auf 
; nächste Hortgrenze erhöhen 


; nächstes Hort aus Tabelle 
; (d0+1)-Bal kopieren 

: —> 

InltStruct 

; a0 :• a2 ■ Adresse der Struktur 
; d0 ;• d0/2 • Länge ln Horten 
. —> 

; Spelchervort löschen 
; falls d0 <> 0: Löschschleife 
; a0 :• a2 ; Adresse der Struktur 
; d0.v löschen 
; d0 Byte aus Tabelle 

: Tabellenende erreicht: -> 

; Bit 7 testen und löschen 
: Bit 7 war - 0: -> 

; Bit 6 testen und löschen 
j Bit 6 war • 0: -> 

; a1 zurQcksetzen 
; d1 Langvort aus Tabelle 

; höchstes Byte löschen 
. —> 

; dl.l löschen 

; dl nächstes Byte aus Tabelle 
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0BF8 FCBBF8 

aovea.l 

a2,aB 

BBFA 

adda.l 

d1,aB 

BBFC FCBBFC 

■ove.v 

dB,dl 

BBFE 

Isr.w 

/3,d1 

BCBB 

andl.v 

/E,d1 

BCB4 

love.v 

34(pc,d1.w),d1 

BCB8 

andl .V 

/F,dB 

BCBC 

Jap 

2C(pc,d1.w) 

BC1B 



BCIB ;- 

Byte, Count 

BC1B 



BCIB FCBC1B 

aove.b 

(a1)+,(aB)+ 

0C12 

dbra 

dB,FCBC1B 

BC16 

aove.l 

a1,dB 

0C18 

addq.l 

/1,dB 

BC1A 

bclr.l 

/B,dB 

BC1E 

aovea.l 

dB,a1 

0C2B 

bra.s 

FCBBD6 

BC22 



0C22 ;- 

Langvort, Count 

BC22 



BC22 FCBC22 

add.v 

dB, dB 

BC24 

addq.v 

/I ,dB 

BC26 



BC26 ;- 

Wort, Count 

BC26 



BC26 FC0C26 

aove.l 

a1,d1 

0C28 

addq.l 

/1,d1 

BC2A 

andl .b 

/FE,dl 

BC2E 

aovea.l 

d1,a1 

0C5B FCBC3B 

Bove.v 

(a1)+,(a0)+ 

BC32 

dbra 

dB,FCBC3a 

BC36 

bra.s 

FCBBD6 

BC38 



BC38 FC0C38 

rts 


BC3A 




a.0 :• a2 - Adresse der Struktur 
+ Zieloffset ergibt Zieladresse ln af) 
dl :• dB • Koaaando-Byte 

dl ’dssB’ 

dl Routinenoffset aus Tabelle 
dB enthalt Anzahl ’nnnn’ 

—> Routine rufen 


; Byte aus Tabelle kopieren 
: (dB+1)-aal 

; a1, falls ungerade, auf 
; nächste Wortgrenze erhöhen 

. .„> 


; Anzahl verdoppeln 
i und 1 addieren 


; a1, falls ungerade, auf 
; nächste Uortgrenze erhöhen 


Wort kopieren 
(dB+1)-aal 
—> 


BC3A ;- Offset-Tabelle der InltStruct-Subroutlnen 

BC3A 

BC3A FCBC5A DC.W FFE8 j FCBC22 Languort, Count 

BCJC DC.W FFEC ; FCBC26 Wort, Count 
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0C3E 

DC.U 

FFD6 

; FC0C10 

Byte, Count 

0C40 

DC.U 

FF50 

; FC0B8A 

APTR, Count 

0C42 





0C42 

DC.U 

FF66 

i FC0BA0 

Langwort, Repeat 

0C44 

DC.U 

FF7A 

: FC0BB4 

Uort, Repeat 

0C46 

DC.U 

FF46 

; FC0B80 

Byte, Repeat 

0C48 

DC.U 

FF50 

: FC0B8A 

APTR, Repeat 

0C4A 

DC.U 

0 




0C4C 

0C4C :- Interrupt-Behandlung 

0C4C 

0C4C FC0C4C loveii.l (a7) + ,d0-d1/a0-a1/a5-a6 j Register wiederherstellen 

0C50 rte 

0CB2 

0C52 :- Interrupt Ebene 1 

0C$2 


0CB2 FC0CB2 

Boven.l 

d0-d1/a0-a1/a5-a6 

0C56 

lea 

DFF000,a0 

0C5C 

■ovea.l 

4,a6 

0C60 

■ove.w 

1C(a0),d1 

0C64 

btst.l 

/E,d1 

0C68 

beq.s 

FC0C4C 

0C6A 

and.w 

1E(a0),d1 

0C6E 

btst.l 

/0,d1 

0C72 

beq.s 

FC0C80 

0C74 

■ovea.l 

54(a6),a1/a5 

0C7A 

pea 

-24(a6) 

0C7E 

Jap 

(a5) 

0C80 

0C80 FC0C80 

btst.l 

/1,d1 

0C84 

beq.s 

FC0C92 

0C86 

■ovea.l 60(a6),a1/a9 

0C8C 

pea 

-24(a6) 

0C90 

Jap 

(a5) 

0C92 

0C92 FC0C92 

btst.l 

/2,d1 

0C96 

beq.s 

FC0CA4 

0C98 

noveo.l 6C(a6),a1/a5 

0C9E 

pea 

-24(a6) 

0CA2 

Jnp 

(a5) 


,-(a7) j Register retten 
; a0 Spezlalchlp-Baslsadresse 
; a6 :■ SysBase 
j dl Interrupt Enable Bits 
; Interrupts freigegeben? 

; nein: fertig -> 

; Interrupt Request Bits ausvShlen 
; Ser.Port Sendepuffer leer? 

; nein: -> 

; a1 -> lv_Data, a5 -> lv_Code 
; Rückkehr nach Exltlntr 
; —> Interrupt-Routine 

; Disk Block beendet? 

: nein: -> 

: a1 -> lv_Data, a5 -> lv_Code 
; Rückkehr nach Exltlntr 
; —> Interrupt-Routine 

: Software-Interrupt? 
j nein: -> 

j a1 -> lv_Data, a5 -> lv_Code 
: Rückkehr nach Exltlntr 
: —> Interrupt-Routine 
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0CA4 




0CA4 FC0CA4 

bra.s 

FC0C4C 

—> Ausgang 

0CA6 




0CA6 i- 

Interrupt Ebene 2 


0CA6 




0CA6 FC0CA6 

moveni.l 

d0-d1/a0-a1/a5-a6,-(a7) ; Register retten 

0CAA 

lea 

OFF000,a0 

a0 Spezialchip-Basisadresse 

0CB0 

movea.1 

4 ,a6 

a6 := SysBase 

0CB4 

move.v 

1C(a0),d1 

dl := Interrupt Enable Bits 

0CB8 

btst.l 

/E,d1 

Interrupts freigegeben? 

0CBC 

beq.s 

FC0C4C 

nein: fertig -> 

0CBE 

and.u 

1E(a0),d1 

Interrupt Request Bits auswählen 

0CC2 

btst.l 

/5,d1 

Interrupt von lO-Port oder Timer? 

0CC6 

beq.s 

FC0CO4 

nein: -> 

0CC8 

moven.l 

78(a6),a1/a5 

a1 -> iv_Data, a5 -> lv_Code 

0CCE 

pea 

-24(a6) 

Rückkehr nach Exltlntr 

0CD2 

Jmp 

(a5) 

—> Interrupt-Routine 

0CD4 




0CD4 FC0CD4 

bra 

FC0C4C 

—> Ausgang 

0CD8 




0CD8 ;- 

Interrupt Ebene 5 


0CD8 




0CD8 FC0CD8 

Bovem.l 

d0-d1/a0-a1/a5-a6,- 

a7) ; Register retten 

0CDC 

lea 

OFF000,a0 

a0 Spezialchip-Basisadresse 

0CE2 

Bovea.l 

4,a6 

a6 := SysBase 

0CE6 

move.v 

1C(a0),d1 

dl := Interrupt Enable Bits 

0CEA 

btst.l 

/E,d1 

Interrupts freigegeben? 

0CEE 

beq 

FC0C4C 

nein: fertig -> 

0CF2 

and.v 

1E(a0),d1 

Interrupt Request Bits auswählen 

0CF6 

btst.l 

/6,d1 

Butter fertig? 

0CFA 

beq.s 

FC0O08 

nein: -> 

0CFC 

lovem.l 

9C(a6),a1/a5 

a1 -> lv_0ata, a5 -> iv_Code 

0D02 

pea 

-24(a6) 

Rückkehr nach Exitlntr 

0006 

JBP 

(a5) 

—> Interrupt-Routine 

0008 




0008 FC0O08 

btst.l 

«.dl 

Anfang der Bildwechsel-Lücke? 

0O0C 

beq.s 

FC0D1A 

nein: -> 

0D0E 

movein. 1 

90(a6),a1/a5 

a1 -> iv_Oata, a5 -> lv_Code 

0014 

pea 

-24(a6) 

Rückkehr nach Exltlntr 

0018 

Jmp 

(a5) 

-> Interrupt-Routine 
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0D1A 

0D1A FC0D1A btst.l /4,d1 

0D1E beq.s FC0D2C 

0D20 moveB.l 84(a6),a1/a5 

0D26 pea -24(a6) 

0D2A Jnp (a$) 

0D2C 

0D2C FC0D2C bra FC0C4C 

0DJ0 

0DJ0 :- Interrupt Ebene 4 

0D50 


0D3A 

Bovea.1 

4 ,a6 

0D3E 

Bove.v 

1C(a0),d1 

0D42 

btst.l 

/E,d1 

0D46 

beq 

FC0C4C 

0D4A 

and.v 

1E(a0),d1 

0O4E FC0D4E 

btst.l 

/8,d1 

0D32 

beq.s 

FC0D62 

0D54 

Boven.l 

B4(a6),a1/a3 

0D5A 

pea 

FC0DA2 

0D60 

Jmp 

(a5) 

0D62 



0062 FC0D62 

btst.l 

/A,d1 

0066 

beq.s 

FC0D76 

0068 

Boven.l 

CC(a6).a1/a5 

0O6E 

pea 

FC0OA2 

0074 

Jap 

(a5) 

0076 



0076 FC0O76 

btst.l 

/7.d1 

0O7A 

beq.s 

FC0D8A 

0D7C 

Boven.l 

A8(a6),al/a5 

0082 

pea 

FC0OA2 

0088 

Jap 

(a5) 

0O8A 



0O8A FC0D8A 

btst.l 

/9.d1 

0OeE 

beq.s 

FC0O9E 

0090 

noven.l 

C0(a6),al/a5 

0096 

pea 

FC0OA2 


; Copper-Interrupt? 
i nein: -> 

i a1 -> lv_Data, a5 -> lv_Cocle 
; Rückkehr nach Exltlntr 
; —> Interrupt-Routine 

; —> Ausgang 


: Register retten 

Spezialchip-Anfangsadresse 
a6 SysBase 

dl := Interrupt Enable Bits 
Interrupts freigegeben? 
nein: fertig -> 

Interrupt Request Bits ausvahlen 
Audlo-Kanal 1 Block fertig? 
nein: -> 

a1 -> lv_Data, a5 -> iv_Code 
Rückkehradresse auf Stack 
—> Interrupt-Routine 

Audlo-Kanal 3 Block fertig? 
nein: -> 

a1 -> lv_Data, a5 -> lv_Code 
Rückkehradresse auf Stack 
—> Interrupt-Routine 

Audlo-Kanal 0 Block fertig? 
nein: -> 

a1 -> lv_Data, a5 -> iv_Code 
Rückkehradresse auf Stack 
—> Interrupt-Routine 

Audlo-Kanal 2 Block fertig? 
nein: -> 

a1 -> iv_Data, a5 -> lv_Code 
Rückkehradresse auf Stack 


0D30 FC0D30 
0D34 


Boveo.l d0-d1/a0-a1/a5-a6,-(a7) 


lea 


DFF000.a0 


a0 
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BD9C 

Jap 

(a5) 

0D9E 



CID9E FC0D9E 

bra 

FC0C4C 

BDA2 



CIDA2 FC0DA2 

lea 

DFF000,a0 

BDA8 

oovea.l 

4 ,a6 

BDAC 

Bove.v 

/780.d1 

BDBB 

and.v 

1C(a0),d1 

0DB4 

and.v 

1E(a0),d1 

BDB8 

bne.s 

FC0D4E 

BDBA 

jmp 

-24(a6) 

0DBE 



0DBE :- 

Interrupt Ebene 5 

0DBE 



0DBE FC0DBE 

novem.l 

d0-d1/a0-a1/a5-a6, 

0DC2 

lea 

DFF000,a0 

0DC8 

novea. 1 

4,a6 

0DCC 

move.v 

1C(a0).d1 

0DD0 

btst.l 

/E,d1 

0DD4 

beq 

FC0C4C 

0DD8 

and.v 

1E(a0),d1 

0DDC 

btst.l 

/C.d! 

0DE0 

beq.s 

FC0DEE 

0DE2 

aoven.l 

E4(a6).a1/a5 

0DE8 

pea 

-24(a6) 

0DEC 

Jmp 

(a5) 

0DEE 



0DEE FC0DEE 

btst.l 

/B,d1 

0OF2 

beq.s 

FC0E00 

0DF4 

movem.l 

D8(a6).a1/a5 

0DFA 

pea 

-24(a6) 

0DFE 

Jmp 

(a5) 

0E00 



0E00 FC0E00 

bra 

FC0C4C 

0E04 



0E04 i- 

Interrupt Ebene 6 

0E04 



0E04 FC0E04 

novem.l 

d0-d1/a0-aVa5-a6 

0E08 

lea 

DFF000,a0 

0E0E 

movea. 1 

4,a6 


; —> Interrupt-Routine 
; -> Ausgang 

; aO :• Spezialchip-Basisadresse 
; a6 SysBase 

; liegt noch ein Audlo-Interrupt vor? 


: Ja: -> 
i —> Exltlntr 


-(a?) : Register retten 
; aB Spezialchip-Basisadresse 
: a6 :» SysBase 
: dl Interrupt Enable Bits 
; Interrupts freigegeben? 

: nein: fertig -> 

; Interrupt Request Bits ausvählen 
: Dlsk-Synchronlsatlon? 

: nein: -> 

; a1 -> lv_Data, a5 -> iv_Code 
; Rückkehr nach Exltlntr 
; —> Interrupt-Routine 

: Ser. Port Eapfangspuffer voll? 

: nein: -> 

; a1 -> lv_Data, a5 -> iv_Code 
; Rückkehr nach Exltlntr 
; —> Interrupt-Routine 

; —> Ausgang 


-(a?) : Register retten 
; aE) Spezialchip-Basisadresse 
; a6 := SysBase 
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CIE12 


Bove.v 

1C(a0),d1 

dl :* Interrupt Enable Bits 

0E16 


btst.l 

/E,d1 

Interrupts freigegeben? 

0E1A 


beq 

FC0C4C 

nein: fertig -> 

0E1E 


and.u 

1E(a0),d1 

Interrupt Request Bits ausvählen 

0E22 


btst.l 

/E,d1 

Master Interrupt? 

0E26 


beq.s 

FC0EJ4 

nein: -> 

0E28 


Boven.l 

FC(a6).at/a5 

a1 -> iv_Data, a5 -> lv_Code 

0E2E 


pea 

-24(a6) 

Rückkehr nach Exitlntr 

0E32 

0EJ4 


jmp 

(a5) 

—> Interrupt-Routine 

0E54 

FC0EJ4 

btst.l 

/D.dl 

Externer Interrupt? 

0E38 


beq.s 

FC0E46 

nein: -> 

0E3A 


Bovem.l 

F0(a6),a1/a5 

a1 -> iv_Data, a5 -> lv_Code 

0E40 


pea 

-24(a6) 

Rückkehr nach Exitlntr 

0E44 

0E46 


Jmp 

(a5) 

—> Interrupt-Routine 

0E46 

0E4A 

FC0E46 

bra 

FC0C4C 

—> Ausgang 

0E4A 

0E4A 

» 

Interrupt Ebene 7 


0E4A FC0E4A 

Boven. 1 

d0-d1/a0-a1/a5-a6,-(a7) ; Register retten 

0E4E 


Bovea. 1 

4,a6 

a6 :• SysBase 

0E32 


movem.l 

108(a6),a1/a3 

a1 -> lv_Data, a5 -> lv_Code 

0E38 


Jsr 

(a5) 

—> Interrupt-Routine 

0E5A 

0E5E 

0E60 


Bovem. 1 

rte 

(a7)+,d0-d1/a0-a1/a5-a6 ; Register vlederherstellen 

0E60 

0E60 

-- 



Exitlntr 

0E60 

FC0E60 

btst.b 

/5,18(a7) 

Interrupt aus Supervisor-Modus? 

0E66 


bne.s 

FC0E80 

Ja: -> 

0E68 


movea.1 

4,a6 

a6 := SysBase 

0E6C 


tst.b 

127(a6) 

Forbid gesetzt? 

0E70 


bge.s 

FC0E80 

Ja: -> 

0E72 


btst.b 

/7,124(a6) 

Schedullng Attention Flag gesetzt? 

0E78 


beq.s 

FC0E80 

nein: -> 

0E7A 


nove 

/2000,sr 

IR-Ebene 0 setzen 

0E7E 

0E80 


bra.s 

FC0E8A 

—> Schedule 

0E80 

FC0E80 

noven.l 

(a7)+,d0-d1/a0-a1/a5-a6 ; Register uiederherstellen 
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0E84 

rte 


0E8b 






U ij U V ^ 



0E8b 



0E8b FC0E8b 

novem. 1 

d0-d1/a0-a1/a5-ab, 

0E8A FC0E8A 

Dove 

/2700.sr 

0E8E 

bclr .b 

/7,124(ab) 

0E94 

movea.1 

114(ab),a1 

0E98 

btst.b 

/5.E(a1) 

0E9E 

bne.s 

FC0EBE 

0EA0 

lea 

19b(ab),a0 

0EA4 

cmpa. 1 

8(a0),a0 

0EA8 

beq.s 

FC0E80 

0EAA 

movea. 1 

(a0),a0 

0EAC 

move.b 

9(a0).d1 

0EB0 

cmp.b 

9(a1).d1 

0EB4 

bge.s 

FC0EBE 

0EBb 

btst.b 

/b,124(ab) 

0EBC 

beq.s 

FC0E80 

0EBE FC0EBE 

lea 

19b(ab),a0 

0EC2 

bsr 

FC1b34 

0ECb 

move.b 

/5.F(a1) 

0ECC 

move 

/2000,sr 

0ED0 

movem. 1 

(a7)+.d0-d1/a0-a1/ 

0ED4 

move.1 

(a7),-(a7) 

0EDb 

move.l 

-J4(ab).4(a7) 

0EDC 

movea. 1 

(a7)+.ab 

0EDE 

rts 


0EE0 









0EE0 



0EE0 FC0EE0 

move 

/2000,sr 

0EE4 

move.l 

a5,-(a7) 

0EEb 

move 

usp.aS 

0EE8 

movem. 1 

d0-d7/a0-ab.-(a5) 

0EEC 

movea.1 

4 ,ab 

0EF0 

move.v 

12b(ab),d0 

0EF4 

nove.v 

/FFFF.12b(ab) 

0EFA 

move.v 

/C000,INTENA 

0F02 

move.l 

(a7)+.34(a5) 


Schedule 

(a7) ; Register retten 
: IR-Ebene 7 setzen 
; Schedullng Attention Flag löschen 
; a1 -> ThlsTask 
; Exceptlon-Flag gesetzt? 

: Ja: -> 

; a0 -> Ready List Header 
; Liste leer? 
ja: -> 

a0 -> 1. Task in der Liste 
d1 :- Priorität 

>= Priorität der laufenden Task? 
Ja: -> 

ZeltquantuD abgelaufen? 
nein: -> 

a0 -> Ready List Header 

-> Enqueue laufende Task 

tc_State := ‘Ready’ 

IR-Ebene := 0 

; Register wiederherstellen 
a6 in Stack nach unten kopieren 
Adresse von ‘Switch’ darübersetzen 
ab vom Stack wiederherstellen 


Switch 

IR-Ebene := 0 
a5 retten 

a5 := Rücksprungadresse aus User-Stack 
Register auf User-Stack retten 
ab := SysBase 

d0 := Forbld/Dlsable-Ebene 
Forbld/Disable rücksetzen 
Interrupts freigeben 
a5 im User-Stack wiederherstellen 
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0F06 

Bove.v 

(a7)+,-(a5) 

0F08 

■ove.l 

(a7)+,-(a5) 

0F0A 

lea 

9A(pc).a4 

0F0E FC0F0E 

movea. 1 

114(a6),a3 

0F12 

Bove.v 

d0.10(a?) 

0F16 

move.l 

a5.36(a3) 

0F1A 

btst.b 

/6.E(a5) 

0F20 

beq.s 

FC0F3C 

0F22 

movea. 1 

42(a5).a5 

0F26 

Jsr 

(a5) 

0F28 

bra.s 

FC0F3C 

0F2A 






ut un ( 



0F2A 



0F2A FC0F2A 

lea 

7A(pc),a4 

0F2E FC0F2E 

Dove.v 

/FFFF,126(a6) 

0F54 

Bove.v 

/C000,INTENA 

0F3C FC0F3C 

lea 

196(a6).a0 

0F40 FC0F40 

nove 

«700,sr 

0F44 

movea. 1 

(a0).a3 

0F46 

move.l 

(a5).d0 

0F48 

bne.s 

FC0F5A 

0F4A 

addq. 1 

/1,118(a6) 

0F4E 

bset.b 

/7,124(a6) 

0F54 

stop 

/2000 

0F38 

bra.s 

FC0F40 

0F5A 



0F5A FC0F5A 

move.l 

d0,(a0) 

0F5C 

movea.1 

d0 ,a1 

0F5E 

move.l 

a0.4(a1) 

0F62 

addq. 1 

/1,11C(a6) 

0F66 

move.l 

a3.1l4(a6) 

0F6A 

move.w 

120(a6),122(a6) 

0F70 

bclr .b 

/6,124(a6) 

0F76 

move.b 

/2,F(aJ) 

0F7C 

Bove .V 

10(aJ),126(a6) 

0F82 

tst.b 

126(a6) 

0F86 

bml.s 

FC0F90 

0F88 

move .V 

/4000.INTENA 

0F90 FC0F90 

Bove 

/2000,sr 


■ Status-Register auf User-Stack 
: Rückkehradresse auf User-Stack 
; a4 := FC0FA6 
; aj -> ThlsTask 

; Forbld/Dlsable-Ebene eintragen 
j tc-SPReg User Stackpointer 

j Swltch-Flag ln tc_Flags gesetzt? 

: nein: -> 

; a5 -> tc_Swltch 

; -> Sultch-Routlne 

; -> Dispatch 

Dispatch 

: a4 := FC0FA6 
j Forbld/Dlsable rücksetzen 
; Interrupts freigeben 
; a0 -> Ready List Header 

; IR-Ebene := 7 

; aJ -> 1. Task ln Ready List 
: d0 :=■ ln_Succ 
: Liste nicht leer: -> 

; IdleCount Inkrementleren 
i Schedullng Attention Flag setzen 
! STOP bis Int 
j-> Loop 

; Node aus Ready List entfernen 


DlspCount Inkrementleren 
ThlsTask aJ 

Zeltquantum ln Zähler kopieren 
Flag für Zeltablauf löschen 
tc_State := ’Run’ 
Forbld/Dlsable-Ebene eintragen 
Dlsable gesetzt? 
nein: -> 

Interrupts abschalten 
IR-Ebene := 0 


Amiga Know-how 


Seite 103 








Amiga Exec 33. 192 


0F94 

nove.b 

E(a;),d0 

0F98 

andl.b 

/A0,d0 

0F9C 

beq.s 

FC0FA0 

0F9E 

bsr .s 

FC0FB6 

0FA0 FC0FA0 

lovea.l 

36(a3),a5 

0FA4 

jap 

(a4) 

0FA6 



0FA6 FC0FA6 

lea 

42(a3),a2 

0FAA 

■ove 

a2,usp 

0FAC 

nove.l 

(a5)+.-<a7) 

0FAE 

■ove.v 

(a5)+,-(a7) 

0FB0 

novea. 1 

(a5).d0-d7/a0-a6 

0FB4 

rte 


0FB6 



0FB6 FC0FB6 

btst.l 

/7,d0 

0FBA 

beq.s 

FC0FC6 

0FBC 

aove.b 

d0,d2 

0FBE 

Bovea.l 

46(a3).a5 

0FC2 

Jsr 

(a5) 

0FC4 

aove.b 

d2,d0 

0FC6 FC0FC6 

btst.l 

/5.d0 

0FCA 

bne.s 

FC0FCE 

0FCC 

rts 


0FCE 









0FCE 



0FCE FC0FCE 

bclr.b 

/5.E(a3) 

0FD4 

Bove.v 

/4000,INTENA 

0FDC 

addq.b 

/1,126(a6) 

0FE0 

Bove.l 

1A(a3).d0 

0FE4 

and.l 

1E(a3).d0 

0FE8 

eor.l 

d0.1E(a3) 

0FEC 

eor.l 

d0,1A(a3) 

0FF0 

subq.b 

/1,126(a6) 

0FF4 

bge.s 

FC0FFE 

0FF6 

aove.v 

/C000.INTENA 

0FFE FC0FFE 

Bovea.1 

36(a3).a1 

1002 

Bove.l 

E(a3).-(a1) 

1006 

tst.b 

126(a6) 

100A 

bne.s 

FC101A 


df) :• tc_Flags 

Except oder Launch gesetzt? 

nein: -> 

—> Launch/Exceptlon-Routlne 
a5 :• tc_SPReg * Task-Stackpolnter 
—> 

a2 -> RQckkehradresse von User-Stack 
User-Stackpolnter setzen 
PC bei Interrupt auf System-Stack 
SR bei Interrupt auf System-Stack 
Register uiederherstellen 
—> Task starten 

'Launch'? 

nein: -> 

iß in d2 retten 

a5 -> tc_Launch 

-”> Launch-Routine 

iß viederherstellen 

'Except'? 

Ja: -> 


Exceptlon 

Except-Flag rUcksetzen 
Interrupts abschalten 
Disable-Ebene inkrementleren 
dB :• tc_SlgRecvd 
tc_SigExcept ausv&hlen 
Empfangene Except-Signale löschen 

Disable-Ebene dekreaentieren 

Interrupts noch gesperrt: -> 

Interrupts freigeben 

a1 :• tc_SPReg 

tc_Flags auf Stack 

Disable-Ebene 

nicht Null: -> 
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100C 

subq.b 

/1,126(a6) 

1010 

bge.s 

FC101A 

1012 

■ove.v 

/C000,INTENA 

101A FC101A 

nove.l 

/FC105A,-(a1) 

1020 

■ove 

a1 ,usp 

1022 

btst.b 

/0,129(a6) 

1028 

beq.s 

FC102E 

102A 

■ove.v 

/20,-(a7) 

102E FC102E 

■ove.I 

2A<a5).-(a7) 

1072 

clr .w 

-(a7) 

1054 

novea.l 

26(a5).a1 

1058 

rte 


105A 



105A FC105A 

novea.l 

4,a6 

105E 

lea 

6(pc),a5 

1042 

Jmp 

-1E(a6) 

1046 



1046 FC1046 

lea 

-A2(pc),a4 

104A 

btst.b 

/0,129(a6) 

1050 

beq.s 

FC1060 

1052 

addq.l 

/2,a7 

1054 

btst. b 

/4.129(a6) 

105A 

beq.s 

FC1060 

105C 

lea 

92(pc),a4 

1060 FC1060 

addq.l 

/6,a7 

1062 

novea.l 

114(a6).a5 

1066 

or.l 

d0,1E(a5) 

106A 

■ove 

usp.al 

106C 

nove.l 

(a1)+,E(a5) 

1070 

nove.l 

a1.56(a5) 

1074 

■ove.v 

10(a5),126(a6) 

107A 

tst.b 

126(a6) 

107E 

bnl.s 

FC1088 

1080 

■ove.v 

/4000,INTENA 

1088 FC1088 

rts 


108A 



108A ;- 

Switch 

für HC 68881 

108A 



108A FC108A 

■ove 

/2000,sr 

108E 

nove.1 

a5,-(a7) 


dekrenentieren 
Interrupts noch gesperrt: -> 
Interrupts freigeben 
Adresse auf Stack 
User-Stackpointer setaen 
Prozessor N 68010+ ? 
nein: -> 

Fornatkode, Vektoradresse auf Stack 
*tc_ExceptCode auf Stack 
Statusregister auf Stack :• 0 
a1 -> tc_ExceptData 
—> ExceptCode 

a6 SysBase 

a6 :• RUckkehradresse FC1046 
—> Supervisor 

a4 :» FC0FA6 
Prozessor H 68010+ 7 
nein: -> 

Stackpointer un 2 erhöhen 
68881 !■ Systea? 
nein: -> 
a4 :- FC10F0 

RTE-Daten voa Stack nehmen 
aj -> ThlsTask 

Except-Signale wieder setzen 

a1 :- User-Stackpolnter 

tc_Flags zurQckspelchern 

tc_SPReg zurückspeichern 

Forbld/Dlsable-Ebene wiederherstellen 

Dlsable gesetzt? 

nein: -> 

Interrupts abschalten 


: IR-Ebene := 0 

: a5 auf Supervisor-Stack retten 
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109(1 

Dove 

usp,a9 

a5 User Stackpointer 

1092 

■ovea.l 

d0-d7/a0-a6,-(a5) 

Register auf User Stack retten 

1096 

■ovea. 1 

4,a6 

a6 := SysBase 

109A 

Bove.v 

126(a6),d0 

d0 :=■ IDNestCnt 

109E 

nove.v 

/FFFF.126(a6) 

Enable/PerBit rücksetzen 

10 A4 

Bove.v 

/C000,INTENA 

Interrupts freigeben 

10AC 

Bove.l 

(a7)+.J4(a5) 

a9 iB Stack viederherstellen 

10B0 

Bove.v 

(a7)+,-(a5) 

SSR ln User Stack übertragen 

10B2 

love.l 

(a7)+.-(a5) 

PC ln User Stack übertragen 

10B4 

cpsave 

-(a5) 

Coprocessor Status auf Stack retten 

10B6 

tst.b 

(a5) 

a5 - 0? 

10B8 

beq.s 

FC10E0 

Ja: -> 

10BA 

noveq 

/FF,d2 

d2 := -1 

10BC 

nove.v 

(a7),d1 

Nächstes Uort von Systenstack 

10BE 

andl.v 

/F000.d1 

Formatkode isolieren 

10C2 

cmpi .V 

«000,dl 

Formatkode =■ 9? 

10C6 

bne.s 

FC10D6 

Nein: -> 

10C8 

addq. 1 

/2.a7 

Systemstackzeiger um 2 erhöhen 

10CA 

■ove. 1 

(a7)+.-(a5) 

Die nächsten drei Langworte 

10CC 

■ove.l 

(a7)+.-(a5) 

aus den Systenstack 

10CE 

Bove. 1 

(a7)+.-(a5) 

in den Userstack übertragen 

10D0 

Bove.v 

/20,-(a7) 


10D4 

Bove.v 

d1.d2 


10D6 FC10O6 

cpgen 

/E0FF.-(a5) 

Koprozessorbefehle generieren 

10DA 

epgen 

/BC00,-(a5) 


10DE 

Bove.v 

d2.-(a5) 

Formatkode auf Userstack legen 

10E0 FC10E0 

lea 

E(pc),a4 

a4 := FC10F0 (Rückkehradresse) 

10E4 

10E8 

bra 

FC0F0E 

—> Switch-Einsprung 

10E8 ;- 

10E8 

Dispatch für HC 68881 


10E8 FC10E8 

lea 

6(pc),a4 

a4 := FC10F0 (Rückkehradresse) 

10EC 

10F0 

bra 

FC0F2E 

—> Dispatch 

10F0 FC10F0 

Bove.b 

(a5).d0 

d0 := Formatkode von Stack 

10F2 

beq.s 

FC1110 

Formatkode = 0: -> 

10F4 

addq.l 

/2,a9 

Formatkode übergehen 

10F6 

cpgen 

(a5)+./9C00 

Koprozessorbefehle generieren 

10FA 

cpgen 

(a5)+./D0FF 


10FE 

cnpl .b 

/90,d0 

Har Formatkode = 9? 
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1102 


bne.s 

FC1110 

1104 


addq.1 

/2.a7 

1106 


move. 1 

(a5)+,-(a7) 

1108 


move.l 

(a5)+.-(a7) 

110A 


aove.l 

(a5)+,-(a7) 

110C 


novc.v 

/9020,-(a7) 

1110 

FC1110 

cprestore (a5)+ 

1112 


lea 

42(a5),a2 

1116 


Bove 

a2,usp 

1118 


move. 1 

(a5)+.-(a7) 

111A 


Bove.v 

(a5)+.-(a7) 

111C 


■ovem.l 

(a5),d0-d7/a0-a6 

1120 

1122 

1122 


rte 


» 



1122 




1122 

FC1122 

movea. 1 

a5,a0 

1124 


lea 

8(pc),a5 

1128 


Jsr 

-1E(a6) 

112C 


rts 


112E 




112E 

FC112E 

movea.1 

a0,a5 

1150 


Bovea.v 

(a7),a0 

1152 


and.w 

d1,d0 

1154 


not.w 

dl 

1156 


and.w 

d1.(a7) 

1158 


or.v 

d0,(a7) 

115A 


Boveq 

/0,d0 

115C 


Bove.v 

a0.d0 

115E 

1140 

1140 


rte 


> 



1140 




1140 

FC1140 

move 

sr,d0 


1142 andl.w /FF,d0 

1146 rts 

1148 

1148 :- 

1148 

1148 FC1148 novea.l a6,a0 


; Nein: -> 

; Systeostackzeiger ud 2 erhöhen 
; Die nächsten drei Langworte 
; vom Userstack ln den 
i Systemstack übertragen 

: Coprocessor Status wiederherstellen 
j User Stackpointer wiederherstellen 

; PC ln System-Stack übertragen 
; SSR in System-Stack übertragen 
; Register wiederherstellen 

SetSR 

; a$ ln a0 retten 

; a5 Rückkehradresse FC112E 

: —> Supervisor 

: a5 wiederherstellen 
: a0 Statusregister 

; d0 mit dl maskieren 

; Statusregister ändern 

; d0 altes Statusregister 

GetCC 

; d0 Statusregister 

; CCR-Tell isolieren 

SuperState 
; a5 ln a0 retten 
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114A 

lea 

8(pc),a5 

114E 

Jsr 

-1E(a6) 

1152 

rts 


1154 



1154 FC1154 

novea.l 

a0,a5 

1156 

clr.l 

d0 

1158 

bset.b 

/5,(a7) 

115C 

bne.s 

FC1172 

115E 

Dove 

(a7)+,sr 

1160 

move.l 

a7,d0 

1162 

nove 

usp,a7 

1164 

btst.b 

/0,129(a6) 

116A 

beq.s 

FC116E 

116C 

addq. 1 

/2.d0 

116E FC116E 

addq.l 

/4,d0 

1170 

rts 


1172 



1172 FC1172 

rte 


1174 









1174 



1174 FC1174 

novea.l 

a5,a0 

1176 

lea 

6(pc),a5 

117A 

J»P 

-1E(a6) 

117E 



117E FC117E 

novea.l 

a0,a5 

1180 

nove.v 

(a7)+,d1 

1182 

nove 

a7,usp 

1184 

novea.l 

d0,a7 

1186 

bclr.l 

/Dpdl 

118A 

nove 

dl ,sr 

118C 

rts 


118E 









118E 



118E FC118E 

nulu 

/C,d0 

1192 

lea 

54(a6,d0.w),a0 

1196 

nove .V 

/4000,INTENA 

119E 

addq.b 

/1.126(a6) 

11A2 

move.l 

e(a0),d0 


: a5 :=■ FC1154 (Rückkehradresse) 

; —> Supervisor 

i a5 wiederherstellen 
; d0 :< 0 

; S-Blt li SR im Stack setzen 
; war bereits gesetzt: -> 

; SR von Stack laden 
: d0 := SSP 
: a7 USP 
: N 68000 Prozessor? 

: Ja: -> 

: sonst ein Wort mehr vom Stack nehmen 
; Rucksprungadresse entfernen 


UserState 

a5 in a0 retten 

a5 :■= FC117E (Rückkehradresse) 

—> Supervisor 

a5 wiederherstellen 
d1 :>= SR vom Stack 
USP :* SSP 
SSP :* d0 

S-Blt zurücksetzen 


SetlntVector 

d0 := Interrupt-Nummer mal 12 
a0 -> Interrupt-Vektor 
Alle Interrupts sperren 
Disable 

d0 -> Iv Node alt 
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11A6 

move. 1 

a1,8(a0) 

a1 -> iv_Node neu eintragen 

IIAA 

beq.s 

FC11BA 

kein gültiger Zeiger: -> 

11AC 

move. 1 

E(a1),0(a0) 

lv_Data eintragen 

11B2 

move. 1 

12(a1),4(a0) 

iv_Code eintragen 

11B8 

bra.s 

FC11C4 

—> 

11BA 




11BA FC11BA 

moveq 

/FF.dl 

dl -1 

11BC 

move.l 

d1,0(a0) 

iv_Data :» -1 

11C0 

move.l 

d1,4(a0) 

iv_Code :■ -1 

nC4 FC11C4 

subq.b 

/1,126(a6) 

Enable 

nc8 

bge.s 

FC11D2 

Noch keine Freigabe: -> 

11CA 

fflove.v 

/C000.INTENA 

Alle Interrupts freigeben 

11D2 FC11D2 

rts 



11D4 




11D4 i- 



AddlntServer 

11D4 




11D4 FC11D4 

move.l 

d2.-(a7) 

d2 retten 

11D6 

move.l 

d0,d2 

d2 Interrupt-Nummer 

11D8 

move.l 

d0,d1 

dl := Interrupt-Nummer 

11DA 

mulu 

/C,d0 

d0 :* Interrupt-Nummer mal 

11DE 

lea 

&4(a6,d0.v),a0 

a0 -> Interrupt-Vektor 

11E2 

movea. 1 

0(a0),a0 

a0 := lv_Data 

HEB 

Bove.v 

/4000,INTENA 

alle Interrupts sperren 

11EE 

addq.b 

/1.126(a6) 

Disable 

11F2 

bsr 

FC16J4 

—> Enqueue 

11F6 

nove.v 

/8000,d0 

Neues Interrupt-Bit setzen 

11FA 

bset.l 

d2,d0 


11FC 

ffiove.v 

d0,INTENA 


1202 

subq.b 

/1,126(a6) 

Enable 

1206 

bge.s 

FC1210 

Noch keine Freigabe: -> 

1208 

Dove.v 

/C000.INTENA 

Alle Interrupts freigeben 

1210 FC1210 

move.l 

(a7)+,d2 

d2 viederherstellen 

1212 

rts 



1214 




1214 . 



RemlntServer 

1214 




1214 FC1214 

move.l 

d2,-(a7) 

d2 retten 

1216 

mulu 

/C.d0 

d0 :» Interrupt-Nummer mal 

121A 

lea 

54(a6,d0.w),a0 

a0 -> Interrupt-Vektor 

121E 

movea.1 

0(a0),a0 

a0 := lv_Data 
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1222 

nove.1 

d0,d2 

d2 := Interrupt-Numiner mal 12 

1224 

move.l 

a0,d1 

dl := lv_Data 

1226 

■ove.v 

/4000.INTENA 

Alle Interrupts sperren 

122E 

addq.b 

/1,126(a6) 

Disable 

1232 

bsr 

FC1600 

—> ReBove 

1236 

■ovea.l 

d1,a0 

a0 iv_Data 

1238 

capa.1 

8(a0),a0 

Liste jetzt leer? 

123C 

bne 

FC124A 

nein: -> 

1240 

■oveq 

/0.d1 

Interrupt Enable Bit rUcksetzen 

1242 

bset.l 

d2,d1 


1244 

Bove.v 

dl.INTENA 


124A FC124A 

subq.b 

/1,126(a6) 

Enable 

124E 

bge.s 

FC1258 

Noch keine Freigabe: -> 

1230 

Bove.v 

/C000,INTENA 

Alle Interrupts freigeben 

1258 FC1258 

■ove.1 

(a7)+.d2 

d2 wiederherstellen 

125A 

rts 



125C 




125C i- 

Interrupt Server Initialisieren 

125C 




125C FC125C 

novem. 1 

d2-d3/a2-a3.-(a7) 

Register retten 

1260 

fflove.l 

/6E,d0 

d0 := 110 = benötigte Speicherbytes 

1266 

Bove. 1 

/10001,d1 

dl Speichertyp PUBLIC, CLEAR 

126C 

bsr 

FC1794 

—> AllocHem 

1270 

tst.l 

d0 

Speicherplatz zugewiesen? 

1272 

bne.s 

FC128A 

ja: -> 

1274 

Boven.l 

d7/a5-a6,-(a7) 

Register retten 

1278 

move. 1 

/81000006,d7 

d7 :=■ Alert-Kode ’AN_IntrMein’ 

127E 

niovea.l 

4 ,a6 

a6 := SysBase 

1282 

Jsr 

-6C(a6) 

—> Alert 

1286 

Dovem. 1 

(a7)+.d7/a5-a5 

Register wiederherstellen 

128A FC128A 

Boveq 

/4.d2 

d2 := 4 (Zähler) 

128C 

Dovea. 1 

d0,a2 

a2 := d0 -> Speicherbereich 

128E 

lea 

4E(pc),a3 

a3 := FC12DE (Initiallsierungstabell 

1292 FC1292 

Bove.l 

a2,d1 

dl := a2 -> Speicherbereich 

1294 

Bove.l 

a2,(a2) 

List Header am Anfang des 

1296 

addq.l 

/4.(a2) 

Speicherbereichs erzeugen 

1298 

clr.l 

4(a2) 


129C 

Bove.l 

a2,8(a2) 


12A0 

lea 

E(a2),a2 

a2 :- a2+14 -> hinter den Header 

12A4 

iBove.v 

(a3)+.d3 

d3 :* Int-Nummer aus Tabelle 
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12A6 

Boveq 

/0,d0 

d0 ;• 0 

12A8 

bset.l 

d3.d0 

Bit Nummer (d3) setzen 

12AA 

■ove.v 

d0.(a2)+ 

Sperruort speichern 

12AC 

bset.l 

/F.d0 

Bit NuBBer 13 setzen 

12B0 

Bove.v 

d0,(a2)+ 

Freigabewort speichern 

12B2 

Bove.v 

(a3)+.(a2)+ 

Nächstes Hort aus Tabelle kopieren 

12B4 

aove.v 

(a3)+.(a2)+ 

Nächstes Uort aus Tabelle kopieren 

12B6 

lea 

44(pc).a1 

a1 :■= FC12FC (Int.Service-Routine) 

12BA 

nulu 

/C.d3 

d3 :* Interrupt-Nummer mal 12 

12BE 

Bovem.l 

d1/a1,54(a6,d3.w) 

lv_Data und lv_Code eintragen 

12C4 

dbra 

d2.FC1292 

das ganze 3 mal -> 

12C8 

move. 1 

/FC1380,70(a6) 

Softlnt-Codeadresse speichern 

12D8 

Bove.v 

/8004.INTENA 

Soft Interrupts freigeben 

12D8 

Doveni.l 

(a7)+.d2-d3/a2-a3 

Register wiederherstellen 

12DC 

rts 



12DE 




12DE ;- 

Tabelle 

für Initialisierung der Interrupt Server 

12DE 




12DE FC12DE 

DC.H 

3 

Int 3: lO-Ports und Timer 

12Eel 

DC.H 

8 


12E2 

DC.U 

0 


12E4 

DC.H 

5 

Int 3: Blldwechsel-Interrupt 

12E6 

DC.U 

20 


12E8 

DC.U 

0 


12EA 

DC.U 

4 

Int 4: Copper 

12EC 

DC.H 

10 


12EE 

DC.H 

0 


12F0 

DC.U 

D 

Int 13: Externer Interrupt 

12F2 

DC.U 

2000 


12F4 

DC.U 

0 


12F6 

DC.U 

F 

Int 13: NNI 

12F8 

DC.U 

0 


12FA 

DC.U 

0 


12FC 




12FC :- 

Interrupt-Routine für Int 3 

4. 3. 13. 13 

12FC 




12FC FC12FC 

Dove.v 

12(a1),-(a7) 

Int-Request Haske auf Stack 

1300 

nove.l 

a2,-(a7) 

a2 retten 

1302 

Bovea.l 

(a1),a2 

a2 -> erster Node 

1304 FC1304 

move.1 

(a2),d0 

d0 -> ln_Succ 
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1306 


beq.s 

FC1316 

1308 


novem.l 

E(a2),a1/a3 

130E 


Jsr 

(a5) 

1310 


bne.s 

FC1316 

1312 


novea.l 

(a2),a2 

1314 


bra.s 

FC1304 

1316 




1316 FC1316 

novea.l 

(a7)+,a2 

1318 


ffiove.v 

(a7)+,INTREQ 

131E 

1320 

1320 


rts 


* 



1320 




1320 

FC1320 

Bove.v 

/4000,INTENA 

1328 


addq.b 

/1,126(a6) 

132C 


cnpi .b 

/B,8(a1) 

1332 


beq.s 

FC1370 

1334 


nove.b 

/B,8(a1) 

133A 


ooveq 

/0,d0 

133C 


nove.b 

9(a1).d0 

1340 


andi .w 

/F0,d0 

1344 


ext.w 

d0 

1346 


lea 

1D2(a6),a0 

134A 


adda.w 

d0,a0 

134C 


lea 

4(a0),a0 

1350 


move.l 

4(a0),d0 

1354 


move.1 

a1,4(a0) 

1358 


nove.1 

a0,(a1) 

135A 


nove. 1 

d0,4(a1) 

135E 


novea.l 

d0,a0 

1360 


move.l 

a1,(a0) 

1362 


bset.b 

/5.124(a6) 

1368 


Bove.v 

/8004,INTREQ 

1370 

FC1370 

subq.b 

/1.126(a6) 

1374 


bge.s 

FC137E 

1376 


move.v 

/C000,INTENA 

137E 

1380 

1380 

FC137E 

rts 


1 



1380 





; Liste 2 u Ende: -> 

; a1 -> iv_Data, a5 -> iv_Code 
: —> Interrupt-Code 
; Liste fertig: -> 

; sonst: a2 -> nächster Node 
; —> Loop 

; a2 wiederherstellen 
; Int-Request von Stack setzen 

Cause 

: Interrupts sperren 
; Disable 

; Node-Typ ’Softlnt’? 

: Ja: -> 

; Typ ’Softlnt’ in Node eintragen 
; d0 :- 0 
; d0 :- Priorität 
; zodulo 16 
: auf d0.w erweitern 
: a0 -> 3. List Header für Softint 
; a0 -> List Header gemäss Priorität 
; Neuen Interrupt an Ende der Liste 
; anfügen 


Softint Request Flag setzen 
Soft Interrupt anfordern 
Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 

Softlnt-Routine 
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1380 

FC1380 

■ove.v 

/4.INTREQ 

1388 


bclr .b 

/5.124(a6) 

138E 


bne.s 

FC1392 

1390 


rts 


1392 




1392 

FC1392 

nove.v 

/4,INTENA 

139A 


bra.s 

FC13C2 

139C 




139C 

FC139C 

Bove 

/2700,sr 

13A0 


Bovea. 1 

(a0).a1 

13A2 


Bove.l 

(a1),d0 

13 A4 


beq.s 

FC13AE 

13A6 


Bove.l 

d0,(a0) 

13A8 


exg 

d0,a1 

13AA 


Bove.l 

a0,4(a1) 

13 AE 

FC13AE 

aovea. 1 

d0.a1 

13B0 


nove.b 

/2,8(a1) 

13B6 


Bove 

/2000,sr 

13BA 


noven.l 

E(a1),a1/a5 

13C0 


Jsr 

(a5) 

13C2 

FC13C2 

moveq 

/4.d0 

13C4 


lea 

1F2(a6),a0 

13C8 


BOve.w 

/4.INTREQ 

13D0 

FC13D0 

CBpa.l 

8(a0),a0 

13D4 


bne.s 

FC139C 

13D6 


lea 

-10(a0),a0 

13DA 


dbra 

d0,FC13D0 

13DE 


move 

/2100,sr 

13E2 


Bove.v 

/8004.INTENA 

13EA 


rts 


13EC 









13EC 

13EC FC13EC Bove.w /4000,INTENA 
15F4 addq.b /1.126(a6) 

13F8 rts 

13FA 

13FA :...- 

13FA 

13FA FC13FA subq.b /1.126(a6) 


; Interrupt-Anforderung löschen 
i Softint Request Flag löschen 
i war gesetzt: -> 

: Soft Interrupts sperren 

. .„> 

; Int Ebene 7 setzen 
j Ersten Node entfernen (RemHead) 


a1 -> Interrupt Node 
Type 'Interrupt' eintragen 
Interrupt Ebene 0 setzen 
a1 -> iv_Data, a5 -> iv_Code 
—> Interrupt-Code 
d0 := 4 (Zähler) 

a0 -> Softint Header Priorität 32 
Soft Interrupts sperren 
Liste leer? 
nein: -> 

a0 -> nächster Softint List Header 
insgesamt 3 mal -> 

Interrupt Ebene 1 setzen 
Softint anfordern 


Disable 

; Interrupts sperren 
j Dlsable-Ebene erhöhen 


Enable 

: Disable-Ebene erniedrigen 
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13FE 

bge.s FC1408 

Noch keine Freigabe: 

-> 

1400 

Bove.w /C000,INTENA 

Interrupts freigeben 


1408 FC1408 

rts 



140A 




140A 

DC.W 0 



140C 




140C :- 


AddLibrary 


140C 




140C FC140C 

lea 17A(a6),a0 

a0 -> Library List Header 

1410 

bsr FC1682 

—> Forbid, Enqueue, 

Pernlt 

1414 

bsr FC1498 

—> SumLlbrary 


1418 

rts 



141A 




141A :- 


RemLlbrary 


141A 




141A FC141A 

move.l a1,d0 

d0 a1 -> LlbBase 


141C 

addq.b /1.127(a6) 

Forbid 


1420 

move.l a6,-(a7) 

a6 retten 


1422 

Bovea.l d0,a6 

a6 -> LlbBase 


1424 

jsr -12(a6) 

—> Expunge 


1428 

movea.l (a7)+,a6 

a6 ulederherstellen 


142A 

Jsr -8A(a6) 

—> Permlt 


142E 

rts 



1430 




1430 :- 


OldOpenLlbrary 


1430 




1430 FC1430 

moveq /0,d0 

d0 := 0 


1432 

Jsr -228(a6) 

—> OpenLlbrary 


1436 

rts 



1438 




1438 :- 


OpenLlbrary 


1438 




1438 FC1438 

iDOve.l d2,-(a7) 

d2 retten 


143A 

Bove.l d0,d2 

d2 :■= Version 


143C 

addq.b /1,127(a6) 

Forbid 


1440 

lea 17A(a6),a0 

a0 -> Library List Header 

1444 FC1444 

bsr FC165A 

—> FlndName 


1448 

tst.l d0 

gefunden? 


144A 

beq.s FC145E 

nein: -> 


144C 

Dovea.l d0,a0 

a0 -> LlbBase 
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144E 

csp.v 

14(a0),d2 

gesuchte > gefundene Version? 

1452 

bgt.s 

FC1444 

ja: weitersuchen -> 

1454 

Dove.l 

a6,-(a7) 

a6 retten 

1456 

Dovea. 1 

a0 ,a6 

a6 -> LibBase 

1458 

Jsr 

-6(a6) 

—> Open 

145C 

■ovea.l 

(a7)+,a6 

a6 wiederherstellen 

145E FC145E 

Jsr 

-8A(a6) 

—> PerBlt 

1462 

■ove.l 

(a7)+,d2 

d2 wiederherstellen 

1464 

rts 



1466 




1466 ;- 



CloseLlbrary 

1466 




1466 FC1466 

addq.b 

/1,127(a6) 

Forbld 

146A 

move.l 

a6,-(a7) 

a6 retten 

146C 

Bovea.1 

a1 ,a6 

a6 -> LibBase 

146E 

Jsr 

-C(a6) 

—> Close 

1472 

Bovea.l 

(a7)+.a6 

a6 wiederherstellen 

1474 

Jsr 

-8A(a6) 

—> PerBit 

1478 

rts 



147A 




147A :- 



SetFunction 

147A 




147A FC147A 

bset.b 

/1.E(a1) 

lib_Flags: änderungsflag setzen 

1480 

lea 

0(a1,a0.v),a0 

a0 -> JHP Vektor 

1484 

Bove. 1 

2(a0),-(a7) 

Vektor auf Stack retten 

1488 

nove.v 

/4EF9.(a0) 

JMP-Kode eintragen 

148C 

BOve.1 

d0,2(a0) 

Neuen Vektor dahintersetzen 

1490 

bsr 

FC1498 

—> SuBLibrary 

1494 

Bove. 1 

(a7)+,d0 

d0 alter Vektor 

1496 

rts 



1498 




1498 ;- 



SumLlbrary 

1498 




1498 FC1498 

btst.b 

/2,E(a1) 

lib_Flags: SuBBlerflag gesetzt? 

149E 

beq.s 

FC14EA 

nein: fertig -> 

14A0 

addq.b 

/1,127(a6) 

Forbld 

14A4 

bclr.b 

/I.E(al) 

Anderungsflag rQcksetzen 

14AA 

beq.s 

FC14B0 

war schon rUckgesetzt: -> 

14AC 

clr.w 

1C(a1) 

llb_SuB löschen 

14B0 FC14B0 

Bovea. 1 

a1 ,a0 

a0 := a1 » LibBase 
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14B2 

Bove.v 

10(a1).d0 

14B6 

Isr.w 

/1,d0 

14B8 

Boveq 

/0,d1 

14BA 

bra.s 

FG14BE 

14BC 



14BC FC14BC 

add.v 

-(a0).d1 

14BE FC14BE 

dbra 

d0,FG14BG 

14C2 

BOve.v 

1G(a1),d0 

14C6 

beq.s 

FG14E2 

14C8 

CBp.V 

d0,d1 

14CA 

beq.s 

FG14E6 

14CC 

Bovem. 1 

d7/a5-a6,-<a7) 

14D0 

move.l 

/81000005,d7 

14D6 

movea. 1 

4,a6 

14DA 

Jsr 

-6G(a6) 

14DE 

movem.l 

(a7)+,d7/a5-a6 

14E2 FC14E2 

Bove.v 

dl.lG(al) 

14E6 FC14E6 

Jsr 

-8A(a6) 

14EA FC14EA 

rts 


14EC 









HEG 



HEG FG14EG 

movern.l 

d2-d7/a2-a5.-(a7) 

14F0 

move.l 

d0,d2 

14F2 

Bove. 1 

a0.d4 

14F4 

move.l 

a1,d5 

14F6 

Bove.l 

a2,d6 

14F8 

Bove.l 

d1.d7 

UFA 

move.l 

a0,d5 

14FG 

beq.s 

FG151E 

14FE 

aovea.l 

a0,a3 

1500 

BOveq 

/FF,d5 

1502 

move.l 

d5,d0 

1504 

CDp.V 

(a5).d0 

1506 

bne.s 

FG1512 

1508 

addq.l 

/2,a5 

150A FG150A 

CBp.V 

(a5)+.d0 

150G 

dbeq 

d5.FG150A 

1510 

bra.s 

FG1518 

1512 




; äi :■ LibNegSize <Bytes) 

; d0 LibNegSize (Uorte) 

; d1 0 (SuDoenregister) 

. —> 

; Prüfsuaae der JNP-Liste berechnen 

j d0 lib_SuB 

; - 0 : -> 

; Bit berechneter Summe vergleichen 
: gleich: -> 

; Register retten 
; Alert-Kode ’AN_LibChkSum’ 

; a6 :• SysBase 
: —> Alert 

; Register viederherstellen 
; Berechnete Summe eintragen 
;-> Permit 


HakeLibrary 
Register retten 

d2 :• d0 « Länge des Datenbereichs 

d4 :• a0 -> Funktionsvektoren 

d5 :• a1 -> InitStruct-Daten 

d6 a2 -> Init 

d7 :• dl -> SegList 

dj a0 -> FunktionsVektoren 

keine Vektoren vorhanden: -> 

aj :» a0 -> Funktionsvektoren 

dj :• -1 ■ Flag für Relativ-Vektoren 

d0 := dJ > -1 

Enthält die Tabelle relative Offsets? 
nein: -> 

Tabellenzeiger vorrücken 
Tabellenvort * Endemarke? 
nein: dJ dekrementieren -> 

—> 


Seite 116 


Amiga Know-how 











Amiga Exec 33. 192 


1512 FC1512 

CDp.l 

(a3)+.d0 

1514 

dbeq 

d3,FC1512 

1518 FC1518 

not.v 

d3 

151A 

■ulu 

/6.d3 

151E FC151E 

■ove. 1 

d2,d0 

1520 

add.l 

d3,d0 

1522 

Bove.l 

/10001,d1 

1528 

jsr 

-C6(a6) 

152C 

tst.l 

d0 

152E 

bne.s 

FC1536 

1530 

■oveq 

/0,d0 

1532 

bra 

FC1570 

1536 



1536 FC1536 

■ovea.l 

d0,a3 

1538 

adda.1 

d3.a3 

153A 

■ove.v 

d3.10(a3) 

153E 

■ove.v 

d2,12(a3) 

1542 

Bovea.l 

a3,a0 

1544 

suba.l 

a2,a2 

1546 

Bovea.l 

d4.a1 

1548 

CBpl.V 

/FFFF.(al) 

154C 

bne.s 

FC1552 

154E 

addq.l 

/2,a1 

1550 

Bovea.l 

d4,a2 

1552 FC1552 

bsr 

FC1576 

1556 

tst.l 

d5 

1558 

beq.s 

FC1564 

155A 

Bovea.l 

a3,a2 

155C 

Bovea.l 

d5,a1 

155E 

Boveq 

/0,d0 

1560 

Jsr 

-4E(a6) 

1564 FC1564 

Bove.l 

a3,d0 

1566 

tst.l 

d6 

1568 

beq.s 

FC1570 

156A 

Bovea.l 

d6,a1 

156C 

Bovea.l 

d7,a0 

156E 

Jsr 

(a1) 

1570 FC1570 

Bovea.l 

(a7)+,d2-d7/a2-a3 

1574 

rts 


1576 




Tabellen-Langvort - Endenarke? 
nein: dj dekreaentleren -> 
d3 :■ Zahl der Vektoren 
aal 6 •: Länge der Sprungliste 
d0 :■ DataSlae 

+ Länge der Sprungllste • Gesamtlänge 
Speichertyp Public, Clear 
—> AllocHea 
Speicher zugeordnet? 

Ja: -> 

dE :« 0 als Fehlerflag 
—> Abschlup 

a3 -> Anfang des Speicherbereichs 
a3 -> Anfang des Datenbereichs 
LlbNegSlze eintragen 
LlbPosSlze eintragen 
a0 :• LlbBase 

a2 :> 0 • Basis für Adrepberechnung 

a1 :• d4 -> Funktionsvektoren 

Erstes Hort - -1? 

nein: absolute Adressen -> 

Tabellenzelger vorrücken 

a2 :• d4 * Basis für Adrepberechnung 

—> MakeFunctlons 

InltStruct-Daten vorhanden? 

nein: -> 

a2 :• a? > LlbBase 
a1 :» d5 -> InltCode 
d0 :> 0: keine Slze-Angabe 
—> InltStruct 
d0 :■ a3 ■ LlbBase 
InltCode vorhanden? 
nein: -> 

a1 :=■ d6 -> InltCode 
a0 :- d? -> SegLlst 
—> Initialisieren 
Register vlederherstellen 
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1576 :- 



1576 



1576 FC1576 

move.l 

a5.-(a7) 

1578 

Boveq 

/0,d0 

157A 

move.l 

a2,d1 

157C 

beq.s 

FC1594 

157E FC157E 

nove.v 

(a1)+.d1 

1580 

cmpl.w 

/-I.dl 

1584 

beq.s 

FC15A8 

1586 

lea 

0(a2,d1.w),a3 

158A 

move.l 

a5,-(a0) 

158C 

nove.v 

/4EF9,-(a0) 

1590 

addq.l 

/6.d0 

1592 

bra.s 

FC157E 

1594 



1594 FC1594 

move.l 

(a1)+,d1 

1596 

cmpl.l 

/-1,d1 

159C 

beq.s 

FC15A8 

159E 

move.l 

d1,-(a0) 

15A0 

nove.v 

/4EF9.-(a0) 

15A4 

addq.l 

/6,d0 

15A6 

bra.s 

FC1594 

15A8 



15A8 FC15A8 

movea.1 

(a7)+,a5 

15AA 

rts 


15AC 






15AC 



15AC FC15AC 

move.l 

a2,d0 

15AE 

beq 

FC15D8 

15B2 

move.l 

(a2).d0 

15B4 

beq 

FC15C6 

15B8 

movea. 1 

d0, a0 

15BA 

movem. 1 

d0/a2,(a1) 

15BE 

move.l 

a1,4(a0) 

15C2 

move.l 

a1, (a2) 

15C4 

rts 


15C6 



15C6 FC15C6 

move.l 

a2,(a1) 

15C8 

movea. 1 

4(a2).a0 


KakeFunctions 
i aj retten 

i d0 0 - Byte-Zähler Anfangswert 

: dl a2 - Offset-/Adressen-Flag 

j Tabelle enthält Adressen: -> 

: nächstes Hort aus Tabelle 
: Endemarke? 

: Ja: -> 

; aJ Vektor-Adresse aus Offset 

; Adresse ln Sprungliste eintragen 
; JMP-Kode davorsetzen 
; Bytezähler um Sprunglänge erhöhen 
; —> Loop 

j dl := Langwort aus Tabelle 
: Endemarke? 

: Ja: -> 

; Adresse ln Sprungllste eintragen 
; JMP-Kode davorsetzen 
; Bytezähler um Sprunglänge erhöhen 
;-> Loop 

i a5 wiederherstellen 


Insert 

: d0 a2 -> LlstNode (vor Insert) 

; ■= 0: AddHead -> 

: d0 := ln_Succ (LlstNode) 

; LlstNode = letzter Node ln Liste: -> 
; a0 := d0 -> ln_Succ (LlstNode) 

; Neuen Node Initialisieren 
i Neuen ln_Pred eintragen 
: Neuen ln_Succ eintragen 

j Ist LlstNode der letzte Node ln 
; der Liste, so erfolgt der Insert 
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15CC 


move. 1 

a0,4(a1) 

15D0 


move.l 

a1,4(a2) 

15D4 


move. 1 

a1,(a0) 

15D6 

15D8 

15D8 


rts 


» 



15D8 




15D8 

FC15D8 

move.l 

(a0),d0 

15DA 


move. 1 

a1,(a0) 

15DC 


movem.l 

d0/a0,(a1) 

15E0 


movea.1 

d0,a0 

1?E2 


move.l 

a1,4(a0) 

15E6 

15E8 

15E8 


rts 


» 



15E8 




15E8 

FC15E8 

lea 

4(a0),a0 

15EC 


move.l 

4(a0),d0 

15F0 


move.l 

a1,4(a0) 

15F4 


move.l 

a0.(a1) 

15F6 


move.l 

d0,4(a1) 

15FA 


movea.1 

d0,a0 

15FC 


move.l 

a1,(a0) 

15FE 

1600 

1600 


rts 


1 



1600 




1600 

FC1600 

movea.1 

(a1),a0 

1602 


movea.1 

4(a1),a1 

1606 


move.l 

a0,(a1) 

1608 


move.l 

a1,4(a0) 

160C 

160E 

160E 


rts 


1 



160E 




160E 

FC160E 

movea. 1 

(a0),a1 

1610 


move.l 

(a1),d0 

1612 


beq.s 

FC161C 

1614 


move.l 

d0,(a0) 

1616 


exg 

d0 ,a1 


\ vor ListNode 


AddHead 

: Neuer Node vlrd eingefügt zwischen 
; ListHeader und erstem Node 


AddTail 

a0 -> lh_Tail 
d0 := alter lh_TailPred 
Neuen lh_TailPred eintragen 
Neuen ln_Succ eintragen 
Neuen ln_Pred eintragen 
a0 := alter lh_TailPred 
TallPred -> neuer Node 


Remove 

a0 ln_Succ 
a1 ;* ln_Pred 

ln_Succ in Vorgänger eintragen 
ln_Pred in Nachfolger eintragen 

RemHead 

a1 -> 1. Node ln der Liste 
d0 -> 2. Node ln der Liste 
Liste leer: -> 
lh_Head -> 2. Node 
a1 -> 2. Node 
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1618 move.l a8,4(a1) 

161C FC161C rts 

161E 

161E i- 

161E 


161E 

FC161E 

movea.l 

8(a0),a1 

1622 


zove.l 

4(a1).d0 

1626 


beq.s 

FC1632 

1628 


nove.l 

d0,8(a0) 

162C 


exg 

d0,a1 

162E 


move.l 

a0,(a1) 

1630 


addq.l 

/4,(a1) 

1632 

1634 

1634 

FC1632 

rts 


» 



1634 




1634 FC1634 

nove.b 

9(a1),d1 

1638 


move.l 

(a0),d0 

163A FC163A 

movea.l 

d0,a0 

163C 


move. 1 

(a0).d0 

163E 


beq.s 

FC1646 

1640 


cmp.b 

9(a0),d1 

1644 


ble.s 

FC163A 

1646 

FC1646 

move.l 

4(a0),d0 

164A 


move.l 

a1.4(a0) 

164E 


move. 1 

a0,(a1) 

1630 


move. 1 

d0,4(a1) 

1654 


movea.l 

d0,a0 

1656 


move.l 

a1,(a0) 

1658 

165A 

165A 


rts 


• 



165A 




165A 

FC165A 

move.l 

a2.-(a7) 

165C 


movea.l 

a0 ,a2 

165E 


move.l 

al.dl 

1660 


move. 1 

(a2),d0 

1662 


beq.s 

FC167C 

1664 

FC1664 

movea.l 

d0,a2 

1666 


move. 1 

(a2),d0 


; ln_Pred -> LlstHeader 


RemTall 

a1 := lh_TallPred -> letzter Kode 
d0 := ln_Pred -> vorletzter Node 
Liste leer: -> 

lh_TallPred -> vorletzter Node 
a1 -> vorletzter Node 
ln_Succ eintragen 


Enqueue 

dl := Priorität 
d0 := lh_Head 
a0 d0 
d0 := ln_Succ 
Ende der Liste: -> 
Priorität kleiner? 

Ja: weitersuchen -> 
AddNode (vgl. AddTall) 


FlndNane 

a2 retten 

a2 := a0 -> Suchanfang (Node/Header) 

dl a1 -> Namensstring 

d0 := ln_Succ bzu. lh_Head 

Liste leer: d0 = 0 -> 

a2 := ln_Succ 

d0 :« nächster ln Succ 
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1668 

beq.s 

FC167C 

166A 

Bovea.l 

A(a2),a0 

166E 

Bovea.l 

d1,a1 

1670 FC1670 

cmpm.b 

(a0)+,(a1)+ 

1672 

bne.s 

FC1664 

1674 

tst.b 

-1(a0) 

1678 

bne.s 

FC1670 

167A 

move. 1 

a2,d0 

167C FC167C 

movea. 1 

d1,a1 

167E 

Bovea.l 

(a7)+,a2 

1680 

rts 


1682 



1682 i- 

Forbld, 

Enqueue, Permlt 

1682 



1682 FC1682 

addq.b 

/1,127(a6) 

1686 

bsr.s 

FC1634 

1688 

Jsr 

-8A(a6) 

168C 

rts 


168E 



168E :- 

Forbld, 

Remove, Permlt 

168E 



168E FC168E 

addq.b 

/1,127(a6) 

1692 

bsr 

FC1600 

1696 

jsr 

-8A(a6) 

169A 

rts 


169C 



169C :- 



169C 



169C FC169C 

tst.l 

d0 

169E 

beq.s 

FC16EC 

16A0 

movem.l 

d3/a2-aJ,-(a7) 

16A4 

addq.l 

/7,d0 

16A6 

andl.b 

/F8,d0 

16AA 

Boveq 

/0,d3 

16AC 

cmp.l 

1C(a0),d0 

16B0 

bhl 

FC16E6 

16B4 

lea 

10(a0),a2 

16B8 FC16B8 

move.l 

(a2),d5 

16BA 

beq.s 

FC16E6 

16BC 

movea. 1 

d3,a1 


Ende der Liste: d0 = 0 -> 
a0 := ln_NaBe aus Node 
a1 -> gesuchter Namensstring 
zeichenweise vergleichen 
ungleich: ueltersuchen -> 
Endemarke erreicht? 
nein: Vergleich fortsetzen -> 
d0 :> a2 -> Node gleichen Namens 
a1 :• d1 -> Namensstring 
a2 vlederherstellen 


Forbld 
—> Enqueue 
—> Permlt 


Forbld 
—> Remove 
—> Permlt 


Allocate 

Angeforderte Bytezahl 
- 0: fertig -> 

Register retten 

Bytezahl modulo 8 aufrunden 

für Fehlermeldung 
Anforderung > freier Speicher? 
ja: -> 

a2 -> mh_Flrst = erster freier Block 
d? :> Link zum nächsten Block 
Liste zu Ende: -> 
a1 -> nächster Blockanfang 
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16BE 

cnp. 1 

4(a1),d0 

16C2 

bls.s 

FC16C8 

16C4 

Dovea. 1 

a1 ,a2 

16C6 

bra.s 

FC16B8 

16C8 



16C8 FC16C8 

beq.s 

FC16DE 

16CA 

lea 

0(a1.d0.1),a3 

16CE 

aove.l 

(a1).(a3) 

16D0 

nove.l 

4(a1).d3 

16D4 

sub.l 

d0.d3 

16D6 

move. 1 

dj,4(a3) 

16DA 

Bove.l 

a3,(a2) 

16DC 

bra.s 

FC16E0 

16DE 



16DE FC16DE 

Dove. 1 

(a1).(a2) 

16E0 FC16E0 

sub.l 

d0,1C(a0) 

16E4 

■ove.l 

a1,d3 

16E6 FC16E6 

nove.l 

d3,d0 

16E8 

Doven. 1 

(a7)+,d3/a2-aj 

16EC FC16EC 

rts 


16EE 



16EE :- 

Speicherfehler 

16EE 



16EE FC16EE 

Doven. 1 

d7/a5-a6.-(a7) 

16F2 

Dove.l 

/81000005,d7 

16F8 

novea. 1 

4 ,a6 

16FC 

Jsr 

-6C(a6) 

1700 

noven.l 

(a7)+.d7/a5-a6 

1704 









1704 



1704 FC1704 

tst.l 

d0 

1706 

beq.s 

FC177C 

1708 

Doveo.1 

d3/a2.-(a7) 

170C 

■ove.l 

a1,d1 

170E 

Boveq 

/F8.d5 

1710 

and. 1 

dj.dl 

1712 

exg 

dl.al 

1714 

sub.l 

al.dl 

1716 

add.l 

d1.d0 


Blocklänge > angeforderte Bytezahl? 
Ja: -> 

a2 a1 -> nächster Blockanfang 
—> Loop 

Blocklänge • Anforderung: -> 
a3 -> Anfang des Restblocks 
Link zuD nächsten Block eintragen 
d3 :> Länge des freien Blocks 
- angeforderte Bytezahl 
als neue Blocklänge eintragen 
Neuen Blockanfang ln Vorblock-Link 
—> 

Link zurUckkopieren 
iih_Free ui Anforderung vernlndern 
d3 := a1 -> Allozlerter Bereich 
d0 := dj -> Allozlerter Bereich 
Register ulederherstellen 


; Register retten 
: Alert-Kode ’AN_MeinCorrupt’ 

; a6 := SysBase 
: —> Alert 

: Register wiederherstellen 
Deallocate 

; Zahl der freizugebenden Bytes 
: - 0: fertig -> 

: Register retten 

; dl :• a1 -> freizugebender Block 
; Blockadresse nodulo 8 abrunden 

: a1 -> Blockanfang abgerundet 
; Differenz bei Rundung 
: zur Länge addieren 
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1718 

addq.l 

/7.d0 

Ergebnis aodulo 8 aufrunden 

171A 

and.l 

d5,d0 


171C 

beq 

FC1778 

Ergebnis = 0: -> 

1720 

lea 

10(a0),a2 

a2 := Bh_Flrst 

1724 

aove.l 

(a2).d5 

d5 Block Link 

1726 

beq.s 

FC1748 

Ende der Liste: -> 

1728 FC1728 

cmpa.l 

d5.a1 

Anfang des freizugebenden Blocks 

172A 

bcs.s 

FC1754 

< Anfang des Speicherblocks: -> 

172C 

beq.s 

FC177E 

• Anfang des Speicherblocks: Fehler -> 

172E 

Dovea. 1 

d5,a2 

a2 :■ Link zua nächsten Block 

1750 

aove.l 

(a2),d5 

d5 :* neuer Link 

1752 

bne.s 

FC1728 

Liste nicht zu Ende: veitersuchen -> 

1754 FC1754 

Boveq 

/10,d1 

dl := 16 

1756 

add.l 

a0,d1 


1758 

cap.l 

a2,d1 


175A 

beq.s 

FC1748 


175C 

aove.l 

4(a2),d5 

d5 Länge des freien Blocks 

1740 

add.l 

a2,d5 

+ Blockanfang • Blockende 

1742 

cap.l 

a1,d5 

Anfang des freizugebenden Bereichs 

1744 

beq.s 

FC1752 

* Ende des freien Blocks: -> 

1746 

bhl.s 

FC177E 

liegt la freien Bereich: Fehler -> 

1748 FC1748 

aove.l 

(a2),(a1) 

Neuen Blockheader erzeugen 

174A 

aove.l 

a1,(a2) 


174C 

aove.l 

d0,4(a1) 


1750 

bra.s 

FC1758 

—> 

1752 

1752 FC1752 

add.l 

d0,4(a2) 

Blocklänge ua Freibytes vergrößern 

1756 

aovea.l 

a2,a1 

a1 := a2 -> Blockanfang 

1758 FC1758 

tst.l 

(a1) 

Link aa Blockanfang eingetragen? 

175A 

beq.s 

FC1774 

nein: -> 

175C 

aove.1 

4(a1).d5 

d5 := Blocklänge 

1760 

add.l 

a1,d5 

+ Blockanfang = Blockende+1 

1762 

cap.l 

(a1),d5 

alt Linkadresse vergleichen 

1764 

bhl.s 

FC177E 

Linkadresse kleiner: Fehler -> 

1766 

bne.s 

FC1774 

Linkadresse größer: -> 

1768 

aovea.l 

(a1).a2 

Nächsten Block einlinken 

176A 

aove.l 

(a2).(a1) 


176C 

aove.l 

4(a2).d5 


1770 

add.l 

d5.4(a1) 


1774 FC1774 

add.l 

d0,1C(a0) 

Bh_Free ua Freibytes erhöhen 
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1778 FC1778 Bovem.l (a7)+.d5/a2 

177C FC177C rts 

177E 

177E ;- Freigabe-Fehler 

177E 

177E FC177E Bovem.l d7/a5-a6.-(a7) 
1782 Bove.l /81880809,d7 

1788 Bovea.l 4,a6 

178C Jsr -6C(a6) 

1790 BOveB.l (a7)+,d7/a5-a6 


1794 

1794 !- 

1794 

1794 FC1794 addq.b /1,127(a6) 


1798 

BOVeB.l 

d2-d3/a2,-(a7) 

179C 

Bove. 1 

d0,d3 

179E 

Bove.l 

d1,d2 

17A0 

lea 

142(a6),a2 

17A4 FC17A4 

Bovea.l 

(a2),a2 

17A6 

tst.l 

(a2) 

17A8 

bne.s 

FC17AE 

17AA 

Boveq 

/0,d0 

17AC 

bra.s 

FC17E6 

17AE 



17AE FC17AE 

Bove.v 

E(a2),d0 

17B2 

and.v 

d2,d0 

17B4 

CBp.V 

d2,d0 

17B6 

bne.s 

FC17A4 

17B8 

Bovea.l 

a2,a0 

17BA 

Bove.1 

d5.d0 

17BC 

bsr 

FC169C 

17C0 

tst.l 

d0 

17C2 

beq.s 

FC17A4 

17C4 

btst.l 

/10,d2 

17C8 

beq.s 

FC17E6 

17CA 

Boveq 

/0.d1 

17CC 

addq.l 

/J.d3 

17CE 

Isr.l 

/2.d3 

17D0 

Bovea.l 

d0,a0 

17D2 

bra.s 

FC17D6 


; Register vlederherstellen 


Register retten 
Alert-Kode •AN_FreeTulce’ 
a6 :• SysBase 
—> Alert 

Register wiederherstellen 
AllocMeB 
: Forbld 

: Register retten 

; dj :• d0 * angeforderte Bytezahl 
; d2 :• dl » Speichertyp 
; a2 -> Neaory List Header 
: a2 -> 1. Node 
; Liste leer? 

; nein: -> 

; d8 :■= 0 als Fehlerkode 
. —> 

: d0 :• Speicher-Attribut 
; entspricht der Anforderung? 

: nein: veitersuchen -> 

: a0 :- a2 -> Node 
: d0 :• dJ • angeforderte Bytezahl 
: —> Allocate 
; Speicher zugeordnet? 

; nein: veitersuchen -> 

: Speichertyp ’Clear'? 

; nein: -> 

; Lbschkode 0 
i Bytezahl+5 

; dividiert durch 4 ergibt Langvorte 
; a0 :» d0 -> Bereichsanfang 
. —> 
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17D4 



17D4 FC17D4 

■ove. 1 

d1,(a0)+ 

17D6 FC17D6 

dbra 

d3,FC17D4 

17DA 

svap 

d3 

17DC 

tst.v 

d3 

17DE 

beq.s 

FC17E6 

17E0 

subq.v 

/1.d5 

17E2 

svap 

d3 

nE4 

bra.s 

FC17D4 

17E6 



17E6 FC17E6 

Jsr 

-8A(a6) 

17EA 

■ovea.l 

(a7)+,d2-d3/a2 

17EE 

rts 


17F0 









17F0 



17F0 FC17F0 

addq.b 

/1.127(a6) 

17F4 

tst.l 

d0 

17F6 

beq.s 

FC1814 

17F8 

lea 

142(a6),a0 

17FC FC17FC 

Bovea.l 

(a0),a0 

17FE 

tst.l 

(a0) 

1800 

beq 

FC16EE 

1804 

capa.l 

14(a0),a1 

1808 

bcs.s 

FC17FC 

180A 

capa.l 

18(a0),a1 

180E 

bcc.s 

FC17FC 

1810 

bsr 

FC1704 

1814 FC1814 

Jsr 

-8A(a6) 

1818 

rts 


181A 









181A 



181A FC181A 

addq.b 

/1,127(a6) 

181E 

lea 

142(a6),a0 

1822 

■oveq 

/0,d0 

1824 FC1824 

aovea.l 

(a0),a0 

1826 

tst.l 

(a0) 

1828 

beq.s 

FC185A 

182A 

capa.l 

14(a0),a1 


; Speicherbereich löschen 
; bis Zähler dj.w * 0 
; H-Hort holen 
: ist es Null? 

: ja: fertig -> 

; H-Uort dekrenentleren 
; und zurQcktauschen 
; —> Loop 

; —> Pernit 

i Register wiederherstellen 


FreeHem 

Forbid 

Freizugebende Bytezahl 
- 0: fertig -> 
a0 -> Menory List Header 
a0 -> 1. Kode 
Liste leer? 

Ja: Fehler -> 

FreeHea-Anfang 

< Anfang der Speicherregion: -> 

> Ende der Speicherregion: -> 
—> Deallocate 
—> Permlt 


TypeOfMem 

Forbid 

a0 -> Memory List Header 
d0 :> 0 
a0 -> 1. Node 
Ende der Liste? 

Ja: -> 

Block-Anfang 
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182E 

bcs.s 

FC1824 

1850 

cmpa.1 

18(a0),a1 

1854 

bcc.s 

FC1824 

1856 

move.v 

E(a0),d0 

185A FC185A 

jsr 

-8A(a6) 


183E rts 

1840 

1840 :- 

1840 


1840 FC1840 

addq.b 

/1.127(a6) 

1844 

movem. 1 

d2-d4/a2-a5.-(a7) 

1848 

move.l 

a1,d2 

184A 

andl. 1 

/7.d2 

1850 

suba.l 

d2,a1 

1852 

add.l 

d2,d0 

1854 

addq. 1 

/7,d0 

1856 

andl.b 

/F8.d0 

185A 

lea 

142(a6),a0 

185E FC185E 

movea.l 

(a0),a0 

1860 

tst.l 

(a0) 

1862 

beq.s 

FC18CC 

1864 

cmpa. 1 

14(a0),a1 

1868 

bcs.s 

FC185E 

186A 

cmpa. 1 

18(a0),a1 

186E 

bcc.s 

FC185E 

1870 

cmp.l 

1C(a0),d0 

1874 

bhl.s 

FC18CC 

1876 

movea.l 

a1.a5 

1878 

move.l 

a1,d2 

187A 

add.l 

d0,d2 

187C 

lea 

10(a0),a2 

1880 FC1880 

move.l 

(a2),d5 

1882 

beq.s 

FC18CC 

1884 

movea.l 

d5.a1 

1886 

move.l 

4(a1).d4 

188A 

add.l 

d5.d4 

188C 

cmp.l 

d2.d4 

188E 

bcc.s 

FC1894 

1890 

movea.l 

a1 ,a2 

1892 

bra.s 

FC1880 


i < Anfang der Speicherregion: -> 

; > Ende der Speicherregion: -> 

; d0 :• nh_Attrlbutes • Speichertyp 
; —> Permlt 


AllocAbs 

Forbld 

Register retten 

d2 :• a1 = Anfang des Blocks 

modulo 8 

Blockanfang modulo 8 abrunden 
d0 :=■ Bytezahl + Blockanfang 
modulo 8 aufrunden 
ergibt Blockende+1 
a0 -> Memory List Header 
a0 -> Memory Region Header 
Region leer? 
ja: -> 

Blockanfang 

< Anfang der Speicherregion: -> 

> Ende der Speicherregion: -> 
Bytezahl > mh_Free7 
ja: -> 

a? :« a1 • Anfang des Bereichs 
d2 :» a1 

+ Bytezahl = Ende des Bereichs 
a2 :■> mh_Flrst 
dj -> nächster freier Block 
Liste zu Ende: -> 
a1 :■= d3 -> Blockanfang 
d4 := Länge des Blocks 
+ Blockanfang = Blockende+1 
Blockende < Ende der Anforderung? 
nein: -> 

a2 :* a1 -> Blockanfang 
-> Loop 
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1894 


1894 FC1894 

CBp.l 

a3,d5 

1896 

bhl.s 

FC18CC 

1898 

sub.l 

d0,1C(a0) 

189C 

sub.l 

d2,d4 

189E 

bne.s 

FC18A4 

18AB 

Bovea. 1 

(al).aB 

18A2 

bra.s 

FC18B0 

18A4 



18A4 FC18A4 

lea 

0(a3,dB.l),aB 

18Ae 

Bove.1 

(a1).(a0) 

18AA 

move.l 

aB.(al) 

18AC 

Bove.1 

d4.4(a0) 

18BB FC18BB 

CBp.l 

aj.dj 

18B2 

beq.s 

FC18BE 

18B4 

sub.l 

aj.dj 

18B6 

neg.l 

d3 

18B8 

Bove.1 

d5.4(a1) 

18BC 

bra.s 

FC18CB 

18BE 



18BE FC18BE 

Bove.l 

aB,(a2) 

18C0 FC18CB 

Bove.l 

a3,dB 

18C2 FC18C2 

BoveB.l 

(a7)+.d2-d4/a2- 

18C6 

Jsr 

-8A(a6) 

18CA 

rts 


18CC 



18CC FC18CC 

aoveq 

/B,dB 

leCE 

bra.s 

FC18C2 

18DB 



18DB :- 



18D0 



18D0 FC18D0 

movem.l 

d5/a2,-(a7) 

18D4 

moveq 

/0,dj 

1806 

lea 

142(a6),a1 

18DA 

addq.b 

/1,127(a6) 

18DE FC18DE 

aovea.l 

(a1),a1 

18E0 

tst.l 

(a1) 

18E2 

beq.s 

FC1912 

18E4 

aove.v 

E(a1),dB 

18E8 

and.w 

dl,dB 


: Blockanfang > Anfang der Anforderung? 

; Ja; keine Allokatlon mSglich -> 

: Bh_Free ub Byte-Anforderung verBlndern 
: d4 Blockende - Bereichsende 
; nicht gleich: -> 

; aB :• Linkadresse 
. —> 

: a0 -> Berelchsende+1 
: Link kopieren 

; Adresse ln Link des Vorblocks 
; Länge des Restblocks eintragen 
j Blockanfang = Anfang der Anforderung? 
i Ja: -> 

; Länge des Zvlschenblocks berechnen 

; und ln Blockheader eintragen 
. —> 

; Link eintragen 
; dB :• Blockanfang 
: Register wiederherstellen 
: —> PerBlt 


; dB :- B 
--> 

AvallMem 

; Register retten 
; dj := B 

: a1 -> Memory List Header 
; Forbld 

j a1 -> Memory Region Header 
; Ende der Liste? 
i Ja: -> 

; dB :- mh_Attrlbutes 
; alt dl maskieren 
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18EA 

cmp.w 

dl ,d0 

18EC 

bne.s 

FC18DE 

18EE 

btst.l 

/II,dl 

18F2 

bne.s 

FC18FA 

18F4 

add.l 

1C(a1).d3 

18F8 

bra.s 

FC18DE 

18FA 



18FA FC18FA 

move.l 

10(a1),d0 

18FE FC18FE 

beq.s 

FC18DE 

1900 

B 

O 

< 

d0,a0 

1902 

cmp.l 

4(a0),d5 

1906 

bge.s 

FC190E 

1908 

movea.l 

a0,a2 

190A 

move.l 

4(a0).d3 

190E FC190E 

move.l 

(a0),d0 

1910 

bra.s 

FC18FE 

1912 



1912 FC1912 

jsr 

-8A(a6) 

1916 

move.l 

d3.d0 

1918 

movem.l 

(a7)+.d3/a2 

191C 

rts 



191E 
191E ; 


191E 

191E FC191E 

movem.l 

d2-d3/a2-a3,-(a7) 

1922 

movea.l 

a0,a2 

1924 

moveq 

/0,d2 

1926 

moveq 

/0,d3 

1928 

move.w 

E(a2),d3 

192C 

move.l 

d3.d0 

192E 

Isl.l 

/3,d0 

19J0 

addl.l 

/10.d0 

1936 

move.l 

/10000,d1 

193C 

Jsr 

-C6(a6) 

1940 

tst.l 

d0 

1942 

beq.s 

FC19A2 

1944 

movea.l 

d0,a3 

1946 

move.w 

d3.E(a3) 

194A 

lea 

10(a2),a2 

194E 

lea 

10(a3).a3 


richtiger Speichertyp? 
nein: weltersuchen -> 
Speichertyp ’largest’ verlangt? 
Ja: -> 

aih_Free zu dj addieren 
—> Loop 

d0 -> mh_Flrst 
Liste zu Ende: -> 
a0 -> Spelcherblock 
Bytes ln Region > d3? 
nein: -> 

a2 :» a0 -> Spelcherblock 
dj :- Bytezahl Im Spelcherblock 
d0 :- Link zum nächsten Block 
—> Loop 

—> Permlt 

d0 := dJ = Ergebnis 

Register wiederherstellen 


AllocEntry 

Register retten 

a2 := a0 = Memory Liste 

d2 := 0 ■= Zähler der Einträge 

dJ :* 0 = Gesamtzahl der Einträge 

d? :- Anzahl der Listeneinträge 

d0 d3 

mal 8 • Länge der Liste 
+ 14 (für Node) + 2 (für NumEntrles) 
dl :• Speichertyp ’Clear' 

—> AllocMem für Memory Liste 
Speicher zugeordnet? 
nein: -> 

a? :* Anfang des Speicherbereichs 
ml_NumEntrles eintragen 
a2 -> 1. Eintrag ln elngeg. Liste 
aj -> 1. Eintrag ln angelegt. Liste 
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1952 FC1952 

■ove.l 

0(a2),d1 

1956 

Dove.l 

4(a2).d0 

195A 

■ove. 1 

d0,4(ä3) 

195E 

beq.s 

FC1968 

1960 

jsr 

-C6(a6) 

1964 

tst.l 

d0 

1966 

beq.s 

FC198A 

1968 FC1968 

■ove.l 

d0,0(a3) 

196C 

addq.l 

/8,a2 

196E 

addq.l 

/8.a3 

1970 

addq.l 

/1,d2 

1972 

CDp.l 

d2,d3 

1974 

bgt.s 

FC1952 

1976 

Isl.l 

/3.d2 

1978 

neg.l 

d2 

197A 

lea 

-10(a2.d2.1),a2 

197E 

lea 

-10(a3,d2.1),a3 

1982 

■ove.1 

a3,d0 

1984 FC1984 

■ovea.l 

(a7)'<-.d2-d3/a2-a3 

1988 

rts 


198A 



198A :- 

Kein Platz für Anforderung 

198A 



198A FC198A 

■ove.l 

dl ,d3 

198C FC198C 

tst.l 

d2 

198E 

beq.s 

FC19A4 

1990 

subq.l 

/1,d2 

1992 

subq. 1 

/8,a3 

1994 

■ovea.l 

0(a3),a1 

1998 

■ove.l 

4(a3),d0 

199C 

Jsr 

-D2(a6) 

19A0 

bra.s 

FC198C 

19A2 



19A2 ;- 

Kein Platz für Memory Llsti 

19A2 



19A2 FC19A2 

■ove.l 

dl .d3 

19A4 FC19A4 

■ove.l 

d3,d0 

19A6 

bset.l 

/1F,d0 

19AA 

bra.s 

FC1984 

19AC 




dl :» angeforderter Speichertyp 
d0 angeforderte Bytezahl 
ln angelegte Liste eintragen 
Bytezahl = 0: fertig -> 

—> AllocMeo 
Speicher zugeordnet? 
nein: -> 

Adresse des Spelcherblocks eintragen 
a2 und 

aj auf nächsten Eintrag vorrücken 
Zähler Inkrementleren 
Alle Einträge bearbeitet? 
nein: ueltermachen -> 

Anzahl der Einträge » 8 = Länge 
negieren 

a2 -> Anfang der eingegebenen Liste 
a3 -> Anfang der angelegten Liste 
d0 a3 

Register vlederherstellen 


d? := dl = angeforderter Speichertyp 
bearbeitete Einträge vorhanden? 
nein: -> 

Zähler dekrementleren 

Zeiger auf vorigen Eintrag zurück 

a1 -> zugeordneter Speicher 

d0 := Anzahl der Bytes 

—> FreeHen gibt Speicher wieder frei 

—> Loop 


dJ := dl 

d0 := d3 ' Speichertyp bei Fehler 
Bit 31 = Fehlerflag 
—> 
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19AC 

19AC 

» 



19AC 

FC19AC 

movem.l 

d2/a2-aj.-(a7) 

19B0 


movea. 1 

a0,a2 

19B2 


lea 

10(a2),a; 

19B6 


nove.v 

E(a2),d2 

19BA 

19BC 


bra.s 

FC19CC 

19BC 

FC19BC 

movea. 1 

0(aJ),a1 

19C0 


move.l 

4(aJ),d0 

19C4 


beq.s 

FC19CA 

19C6 


Jsr 

-D2(a6) 

19CA 

FC19CA 

addq.1 

«,a5 

19CC 

FC19CC 

dbra 

d2.FC19BC 

19D0 


soveq 

/0,d0 

19D2 


nove.v 

E(a2),d0 

19D6 


Isl.l 

/5,d0 

19D8 


addl.l 

/10,d0 

19DE 


movea. 1 

a2,a1 

19E0 


Jsr 

-D2(a6) 

19E4 

19E8 


noven.l 

rts 

(a7)+,d2/a2-a3 


19EA 
19EA j 


19EA 

19EA FC19EA 

move.l 

a1,A(a0) 

19EE 

lea 

20(a0),a1 

19F2 

move.b 

/A,8(a0) 

19F8 

move.b 

d2,9(a0) 

19FC 

nove.v 

d1,E(a0) 

1A00 

move.l 

a1 ,d1 

1A02 

addq. 1 

/7,d1 

1A04 

andl .b 

/F8,d1 

1A08 

exg 

dl ,a1 

1A0A 

sub.l 

al.dl 

1A0C 

add.l 

d1,d0 

1A0E 

andl.b 

/F8.d0 

1A12 

subl. 1 

/20.d0 

1A18 

move.l 

a1,10(a0) 

1A1C 

move.l 

a1,14(a0) 


FreeEntry 

Register retten 
a2 a0 -> Memory Liste 
aj -> 1. Eintrag ln der Liste 
d2 := Anzahl der Einträge 
—> 

a1 -> Anfang des Spelcherblocks 
iH Anzahl der Bytes 
» 0 : -> 

—> FreeMem für Eintrag 
aJ auf nächsten Eintrag vorrücken 
bis letzter Eintrag bearbeitet: -> 
d0.1 :• 0 

d0 := Anzahl der Einträge 
mal 8 < Länge aller Einträge 
+ 14 (Node) + (2) NumEntrles 
a1 := a2 -> Memory Liste 
—> FreeMem für Liste 
Register wiederherstellen 


AddMemLlst 

ln_Name 

a1 zeigt hinter den Mem.Header 

ln_Type 

ln_Prl 

mh_Attrlbutes 
dl a1 
dl auf nächste 
Languortgrenze ausrlchten 
dl mit a1 vertauschen 
Differenz: -8 < dl <= 0 
Freispeicher entspr.verkleinern 
und auf Languortgrenze abrunden 
Länge des Memory Headers abzlehen 
mh_Flrst: Erstes freies Stück 
mh_Louer: Anfang des Freispeichers 
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1A20 

move.1 

a1 ,d1 

1A22 

add.l 

d0,d1 

1A24 

move.l 

d1,18(a0) 

1A28 

move.1 

d0.1C(a0) 

1A2C 

move.l 

d0.4(a1) 

1A30 

clr.l 

(a1) 

1AJ2 

movea.1 

a0,a1 

1AJ4 

lea 

142(a6),a0 

1A38 

bsr 

FC1682 

1AJC 

rts 


1A5E 

1A3E 

DC.U 

0 


\M 


1A40 i 
1A40 


1A40 FC1A40 

DC.U 

08A0 

1A42 

DC.U 

08A8 

1A44 

DC.U 

08AC 

1A46 

DC.U 

08AC 

1A48 

DC.U 

EE6A 

1A4A 

DC.U 

F420 

1A4C 

DC.U 

F446 

1A4E 

DC.U 

04F8 

1A30 

DC.U 

F4A0 

1A52 

DC.U 

F4EA 

1A54 

DC.U 

F58E 

1A$6 

DC.U 

F0B0 

1A58 

DC.U 

F188 

IA3A 

DC.U 

FAAC 

1A5C 

DC.U 

FB56 

1A3E 

DC.U 

F080 

1A60 

DC.U 

F0E8 

1A62 

DC.U 

1596 

1A64 

DC.U 

08EE 

1A66 

DC.U 

F9AC 

1A68 

DC.U 

F9BA 

1A6A 

DC.U 

051A 

1A6C 

DC.U 

0520 

1A6E 

DC.U 

F6E2 

1A70 

DC.U 

F708 


dl :• mh_Lower 

Länge des Freispeichers addieren 

ergibt mh_Upper 

nh_Free 

mc_Bytes ln Speicherstück eintragen 
mc_Next 0: letztes Stück 
a1 := Adr. des Memory Region Headers 
a0 Adr. des HemLlst Headers 
—> Forbld, Enqueue, Permlt 


Exec Library Offset Tabelle 

FC22E0 Open 
FC22E8 Close 
FC22EC Expunge 
FC22EC Extfunct 
FC08AA Supervisor 
FC0E60 Exitlntr 
FC0E86 Schedule 
FC1F38 Reschedule 
FC0EE0 Switch 
FC0F2A Dispatch 
FC0FCE Exceptlon 
FC0AF0 InitCode 
FC0BC8 InltStruct 
FC14EC MakeLlbrary 
FC1576 HakeFunctlons 
FC0AC0 FlndResldent 
FC0B28 InitResldent 
FC2FD6 Alert 
FC252E Debug 
FC13EC Dlsable 
FC13FA Enable 
FC1F5A Forbld 
FC1F60 Permlt 
FC1122 SetSR 
FC1148 SuperState 
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F754 

FC1174 

liserState 


mgm 

F74E 

FC118E 

SetlntVector 


■ai 

F794 

FC11D4 

AddlntServer 

1A78 

DC.U 

F7D4 

FC1214 

RemlntServer 

1Ä7A 

DC.U 

F8E0 

FC1520 

Cause 

1A7C 

DC.U 

FC5C 

FC169C 

AUocate 

1A7E 

DC.U 

FCC4 

FC1704 

Deallocate 

1A80 

DC.U 

FD54 

FC1794 

AllocHen 

1A82 

DC.U 

FE00 

FC1840 

AllocAbs 

1A84 

DC.U 

FDB0 

FC17F0 

FreeMem 

1A86 

DC.U 

FE90 

FC18D0 

AvailHea 

1A88 

DC.U 

FEDE 

FC191E 

AllocEntry 

1A8A 

DC.U 

FF6C 

FC19AC 

FreeEntry 

1A8C 

DC.U 

FB6C 

FC15AC 

Insert 

1A8E 

DC.U 

FB98 

FC15D8 

AddHead 

1A98 

DC.U 

FBA8 

FC15E8 

AddTall 

1A92 

DC.U 

FBC0 

FC1600 

Reaove 

1A94 

DC.U 

FBCE 

FC160E 

RenHead 

1A96 

DC.U 

FBDE 

FC161E 

RenTail 

1A98 

DC.U 

FBF4 

FC1654 

Enqueue 

1A9A 

DC.U 

FC1A 

FC165A 

FindNane 

1A9C 

DC.U 

0208 

FC1C48 

AddTask 

1A9E 

DC.U 

02B4 

FC1CF4 

ResTask 

1AA8 

DC.U 

0554 

FC1D74 

FlndTask 

1AA2 

DC.U 

0588 

FC1DC8 

SetTaskPri 

1AA4 

DC.U 

05E2 

FC1E22 

SetSignal 

1AA6 

DC.U 

05D8 

FC1E18 

SetExcept 

1AA8 

DC.U 

0490 

FC1ED0 

Uait 

1AAA 

DC.U 

0408 

FC1E48 

Signal 

1AAC 

DC.U 

0584 

FC1FC4 

AUocSignal 

1AAE 

DC.U 

05BC 

FC1FFC 

FreeSlgnal 

1AB0 

DC.U 

054E 

FC1F8E 

AllocTrap 

1AB2 

DC.U 

0574 

FC1FB4 

FreeTrap 

1AB4 

DC.U 

00D8 

FC1B18 

AddPort 

1AB6 

DC.U 

00F0 

FC1B50 

RenPort 

1AB8 

DC.U 

00F4 

FC1B54 

PutMsg 

1ABA 

DC.U 

016E 

FC1BAE 

Getnsg 

1ABC 

DC.U 

019C 

FC1BDC 

ReplyRsg 

1ABE 

DC.U 

01B6 

FC1BF6 

UaitPort 

1AC8 

DC.U 

01DE 

FC1C1E 

FindPort 
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1AC2 

DC.W 

F9CC 

FC140C 

AddLIbrary 

1AC4 

DC.U 

F9DA 

FC141A 

ReoLlbrary 

1AC6 

DC.U 

F9F0 

FC1430 

OldOpenLibrary 

1AC8 

DC.U 

FA26 

FC1466 

CloseLlbrary 

1ACA 

DC.U 

FA5A 

rC147A 

SetFunction 

1ACC 

DC.U 

FA58 

FC1498 

SunLlbrary 

1ACE 

DC.U 

ECU 

FC0654 

AddDevlce 

1AD0 

DC.U 

EC22 

FC0662 

RenDevlce 

1AD2 

DC.U 

EC26 

FC0666 

OpenDevice 

1AD4 

DC.U 

EC74 

FC06B4 

CloseDevice 

1AD6 

DC.U 

EC9C 

FC06DC 

DoIO 

1AD8 

DC.U 

EC8A 

FC06CA 

SendIO 

1ADA 

DC.U 

ED0E 

FC074E 

ChecklO 

1ADC 

DC.U 

ECB2 

FC06F2 

UaitIO 

1ADE 

DC.U 

ED2A 

FC076A 

Abort IO 

1AE0 

DC.U 

01E8 

FC1C28 

AddResource 

1AE2 

DC.U 

01F0 

FC1C30 

ReoResource 

1AE4 

DC.U 

01F4 

FC1C34 

OpenResource 

1AE6 

DC.U 

0768 

FC21F8 

RavIOlnit 

1AE8 

DC.U 

07C2 

FC2202 

RawHayGetChar 

IAEA 

DC.U 

07EE 

FC222E 

RavPutChar 

UEC 

DC.U 

06A8 

FC20E8 

RavDoFat 

UEE 

DC.U 

F700 

FC1140 

GetCC 

1AF0 

DC.U 

FDDA 

FC181A 

TypeOfHem 

1AF2 

DC.U 

1J1C 

FC2D5C 

Procure 

1AF4 

DC.U 

1332 

FC2D72 

Vacate 

1AF6 

DC.U 

F9F8 

FC1438 

OpenLibrary 

1AF8 

DC.U 

1354 

FC2D94 

InltSenaphore 

1AFA 

DC.U 

1374 

FC2DB4 

ObtainSenaphore 

1AFC 

DC.U 

13C4 

FC2E04 

ReleaseSemaphore 

1AFE 

DC.U 

1428 

FC2E68 

AttenptSenaphore 

1B00 

DC.U 

1458 

FC2E98 

ObtalnSenaphoreLlst 

1602 

DC.U 

14CE 

FC2F0E 

ReleaseSenaphoreList 

1604 

DC.U 

14F4 

FC2F34 

FindSeaaphore 

1606 

DC.U 

14E4 

FC2F24 

AddSenaphore 

1608 

DC.U 

14F0 

FC2F30 

RenSeaaphore 

1B0A 

DC.U 

EFFC 

FC0A3C 

SumKickData 

1B0C 

DC.U 

FFAA 

FC19EA 

AddMenLlst 

1B0E 

DC.U 

1504 

FC2F44 

CopyMem 

1610 

DC.U 

1500 

FC2F40 

CopyHefflQulck 
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1B12 

1B14 

1B16 

1B18 

DC.U 

DC.U 

DC.U 

FFFF 

FFFF 

0 




1B18 



1B18 FCtB18 

lea 

14(a1),a0 

1B1C 

move.l 

a0,(a0) 

1B1E 

addq.1 

/4.(a0) 

1B20 

clr.l 

4(a0) 

1B24 

move.l 

a0,8(a0) 

1B28 

lea 

188(a6),a0 

1B2C 

bra 

FC1$82 

1B50 









1B?0 



1B50 FC1B50 

bra 

FC168E 

1B54 









1B34 



1B54 FC1B34 

move.b 

/5.8(a1) 

1B3A FC1B3A 

move.l 

a0,d1 

1B3C 

lea 

14(a0),a0 

1B40 

Bove.v 

/4000,INTENA 

IB48 

addq.b 

/1,126(a6) 

1B4C 

lea 

4(a0),a0 

1B50 

move.l 

4(a0),d0 

1B54 

move.l 

a1,4(a0) 

1B58 

move.l 

a0,(a1) 

1B5A 

move.l 

d0.4(a1) 

1B5E 

movea.l 

d0,a0 

1B60 

move.l 

a1,(a0) 

1B62 

movea.l 

dl ,a1 

1B64 

move.l 

10(a1).d1 

1B68 

beq.s 

FC1B9E 

IB6A 

move.b 

E(a1).d0 

1B6E 

andl .V 

/J,d0 

1B72 

beq.s 

FC1B8E 

1B74 

cmpl .b 

/1,d0 

1B78 

bne.s 

FC1B82 


; Endemarke 


AddPort 

j a0 -> Message List Header im Msg Port 
; Header initialisieren 


i a0 -> Port List Header 
j —> Forbld, Enqueue, Permlt 

RenPort 

; —> Forbid, Remove, Permlt 
PutMsg 

: Typ := 'Message' 
i dl := a0 -> Port 
; a0 -> Message List Header im Port 
: Interrupts sperren 
; Disable 
: AddTall 


a1 -> Port 
dl SlgTask 
keine Signale gesetzt: -> 
d0 := mp_Flags 
Actlon-Flags isolieren 
nicht gesetzt: -> 

Softint? 
nein: -> 
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1B7A 

■ovea.l 

d1,a1 

a1 -> SlgTask 

1B7C 

Jsr 

-B4(a6) 

—> Cause Softint 

1B8B 

bra.s 

FC1B9E 

—> 

1B82 




1B82 FC1B82 

copi.b 

/2.d0 

pa_Ignore7 

1B86 

beq.s 

FC1B9E 

Ja: -> 

1B88 

aovea. 1 

d1 ,a0 

aB -> SlgTask 

1B8A 

Jsr 

(a0) 

—> Task aufrufen 

1B8C 

bra.s 

FC1B9E 

—> 

1B8E 




1B8E FC1B8E 

nove.b 

F(a1),d0 

dB := SlgBlt 

1B92 

■ovea.l 

d1,a1 

a1 -> Port 

1B94 

noveq 

«.dl 

dl.l B 

1B96 

bset.l 

d0,d1 

SlgBlt ln dl setzen 

1B98 

■ove.l 

dl,dB 

dB :• dl 

1B9A 

Jsr 

-144{a6) 

—> Signal 

1B9E FC1B9E 

subq.b 

/1,126(a6) 

Enable 

1BA2 

bge.s 

FC1BAC 

Noch keine Freigabe: -> 

1BA4 

■ove.v 

/CBBB.INTENA 

Interrupts freigeben 

1BAC FC1BAC 

rts 



1BAE 







GetHsg 

1 finCt 1 



1BAE 




1BAE FC1BAE 

lea 

14(aB),aB 

aB -> Bp_MsgLlst 

1BB2 

Bove.v 

/4000,INTENA 

Interrupts sperren 

1BBA 

addq.b 

/1,126(a6) 

Dlsable 

1BBE 

■ovea.l 

(aB),a1 

RenHead 

1BC0 

■ove.l 

(aD.dB 


1BC2 

beq.s 

FC1BCC 


1BC4 

■ove.1 

dB,(aB) 


1BC6 

exg 

dB,a1 


1BC8 

■ove.l 

aB,4(a1) 


1BCC FC1BCC 

subq.b 

/1.126(a6) 

Enable 

1BDB 

bge.s 

FC1BDA 

Noch keine Freigabe: -> 

1BD2 

Dove.v 

/CBBB.INTENA 

Interrupts freigeben 

1BDA FC1BDA 

rts 



1BDC 







ReplyMsg 




1BDC 




1BDC FC1BDC 

■ove.l 

E(a1),dB 

dB :• ReplyPort 
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tBE0 

bne.s 

F01BEA 

vorhanden: -> 

1BE2 

Bove.b 

/6,8(a1) 

Typ 'FreeMsg' eintragen 

1BE8 

rts 



1BEA 




1BEA FC1BEA 

BOve.b 

/7,8(a1) 

Typ ’ReplyMsg’ eintragen 

1BF0 

movea.l 

d0,a0 

a0 -> ReplyPort 

1BF2 

bra 

F01B3A 

—> PutNsg 

1BF6 




1BF6 ;- 



WaltPort 

1BF6 




1BF6 FC1BF6 

movea. 1 

14(a0).a1 

a1 -> 1. Message 

1BFA 

tst.l 

(a1) 

Message vorhanden? 

1BFC 

bne.s 

F0101A 

Ja: -> 

1BFE 

move .b 

F<a0),d1 

dl := mp_SlgBlt 

1Ct)2 

lea 

14(a0),a0 

a0 -> mp_SigLlst 

1C06 

Boveq 

/0,d0 

d0.1 :- 0 

1006 

bset.l 

dl ,d0 

SlgBit ln d0 setzen 

1C0A 

nove.l 

a2.-(a7) 

a2 retten 

1C0C 

Dovea.l 

a0,a2 

a2 := a0 -> iiip_MsgList 

1C0E FC1C0E 

Jsr 

-13E(a6) 

—> Halt 

1012 

movea. 1 

(a2),a1 

a1 -> 1. Message 

1014 

tst.l 

(a1) 

Message vorhanden? 

1016 

beq.s 

FO1O0E 

nein: warten -> 

1018 

movea. 1 

(a7)+,a2 

a2 wiederherstellen 

101A F01C1A 

move. 1 

a1,d0 

d0 :■= a1 -> Message 

1010 

rts 



101E 




101E j- 



FlndPort 

1C1E 




101E F0101E 

lea 

188(a6),a0 

a0 -> Port List Header 

1022 

Jsr 

-114(a6) 

—> FlndName 

1026 

rts 



1028 




1028 !- 



AddResource 

1028 




1028 F01028 

lea 

150(a6),a0 

a0 -> Resource List Header 

1020 

bra 

F01682 

—> Forbld, Enqueue, Permit 

1030 




1030 i- 



RemResource 

1030 
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1CJ0 FC1C50 

bra 

F0168E 

—> Forbid, Remove, Permlt 

1C34 




1CJ4 ;- 



OpenResource 

1C34 




1CJ4 FC1C34 

lea 

1$0(a6),a0 

a0 -> Resource List Header 

1C38 

addq.b 

/1.127(a6) 

Forbid 

1CJC 

bsr 

F0165A 

—> FlndNaae 

1C40 

Jsr 

-8A(a6) 

—> Peralt 

1C44 

rts 



1C46 




1C46 

DO.U 

0 


1C48 




1C48 :.- 



AddTask 

1C48 




1C48 FC1C48 

aoveq 

/0,d1 

dl 0 

1C4A 

Bove.b 

/1.F(a1) 

tc_State 1 * ■ts_added’ 

1C50 

Bove.b 

d1,E(a1) 

tc_Flags 0 

1C54 

Bove.v 

/FFFF,10(a1) 

ld_NestOnt, td_NestOnt rücksetzen 

1C3A 

Bove.l 

130(a6),12(a1) 

tc_SlgAlloc vorbelegen 

1C60 

aove.l 

d1,16(a1) 

tc_SlgHalt :• 0 

1C64 

Bove.l 

d1,1A(a1) 

tc_SlgRecvd 0 

1C68 

■ove.l 

d1,1E(a1) 

tc_SlgExcept :• 0 

1C6C 

■ove.v 

140(a6),22(a1) 

tc_TrapAlloc vorbelegen 

1C72 

■ove.v 

d1,24(a1) 

tc_Trapable :• 0 

1C76 

tst.l 

52(a1) 

tc_Trapcode 

1C7A 

bne.s 

F01082 

vorhanden: -> 

1C7C 

■ove.l 

130(a6).J2(a1) 

TaskTrapOode als Default eintragen 

1C82 FC1C82 

tst.l 

2A(a1) 

tc_ExceptOode 

1086 

bne.s 

F0108E 

vorhanden: -> 

1088 

■ove.l 

134(a6),2A(a1) 

TaskExceptOode als Default eintragen 

108E F0108E 

■ovea.1 

36(a1),a0 

a0 :- tc_SPReg 

1092 

■ove.l 

a3.-(a0) 

FlnalPO auf TaskStack 

1094 

bne.s 

F0109A 

vorhanden: -> 

1096 

■ove.l 

138(a6),(a0) 

durch TaskExltOode ersetzen 

109A F0109A 

ffloveq 

/E.dl 

dl :- 14 • Zählerwert 

1090 F01090 

clr.l 

-(a0) 

15 Langworte auf TaskStack löschen 

109E 

dbra 

d1,F01090 

als Reglster-Anfangswerte 

1CA2 

clr.w 

-(a0) 

1 weiteres Hort für Statusregister 

10A4 

■ove.l 

a2,-(a0) 

PO-Anfangswert auf TaskStack 

10A6 

btst.b 

/4,129(a6) 

N 68881 Ooprozessor Im System? 
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1CAC 

beq.s 

FC1CB2 

1CAE 

■oveq 

/0,d0 

1CB0 

nove.l 

d0.-(a0) 

1CB2 FC1CB2 

Bove.l 

a0.36(a1) 

1CB6 

lea 

196(a6),a0 

tCBA 

Bove.v 

/4000.1NTENA 

1CC2 

addq.b 

/1.126(a6) 

1CC6 

nove.b 

«.F(a1) 

1CCC 

bsr 

FC16J4 

1CD0 

love.l 

196(a6),d0 

1CD4 

subq.b 

/1,126(a6) 

1CD8 

bge.s 

FC1CE2 

1CDA 

Bove.v 

/C000,INTENA 

1CE2 FC1CE2 

cgp.l 

a1 .d0 

1CE4 

bne.s 

FC1CEA 

1CE6 

Jsr 

-30(ab) 

1CEA FC1CEA 

rts 


1CEC 



1CEC :- 

Task-Abschlus 

1CEC 



1CEC FC1CEC 

aovea.l 

4,ab 

1CF0 

Boveq 

/0,d0 

1CF2 

■ovea. 1 

d0.a1 

1CF4 






1CF4 



1CF4 FC1CF4 

■oven.l 

d2-d3.-(a7) 

1CF8 

■ove. 1 

a1,d3 

1CFA 

bne.s 

FC1D02 

1CFC 

■ove. 1 

114(ab).d3 

1D00 

bra.s 

FC1D2b 

1D02 



1D02 FC1D02 

cnpa. 1 

114(ab),a1 

1D06 

beq.s 

FC1D2b 

1D08 

Bove.v 

/4000.INTENA 

1D10 

addq.b 

/1,12b(ab) 

1D14 

bsr 

FC1b00 

1D18 

subq.b 

/1,12b(ab) 

1D1C 

bge.s 

FC1D2b 

1D1E 

Bove.v 

/C000.INTENA 


nein: -> 

d0 0 

auf TaskStack 

tc_SPReg setzen 

a0 -> Task Ready List Header 

Interrupts sperren 

Disable 

tc_State 5 = 'Ready' 

—> Enqueue 
d0 :• lh_Head 
Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 
Steht Task am Anfang der Liste? 
nein: -> 

—> Reschedule 


; a6 :« SysBase 
: d0 :- 0 

; a1 :- d0 - 0; Flag 'Laufende Task' 
RenTask 

j Register retten 
: dJ -> Task 

j nicht die laufende Task: -> 
j d3 :- ThisTask 
. —> 

; a1 - ThisTask? 
i Ja: -> 

: Interrupts sperren 
; Disable 
j —> Remove 
; Enable 

; Noch keine Freigabe: -> 

: Interrupts freigeben 
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1D26 FC1D26 

■ovea. 1 

d3,a1 

1D28 

Bove.b 

/6.F(a1) 

1D2E 

capa.l 

114(a6),a1 

1DJ2 

bne.s 

FC1DJ8 

1D54 

addq.b 

/1.127(a6) 

1DJ8 FC1DJ8 

lea 

4A(a1),a0 

1D5C 

■ove.l 

(a0),d2 

1D3E 

beq.s 

FC1D58 

1D40 

cmpa. 1 

8(a0),a0 

1D44 

beq 

FC1D58 

1D48 

clr.l 

(a0) 

1D4A FC1D4A 

■ovea.l 

d2,a0 

1D4C 

Bove.l 

(a0),d2 

1D4E 

beq 

FC1D58 

1032 

Jsr 

-E4(a6) 

1D36 

bra.s 

FC1D4A 

1D38 



1D58 FC1D58 

cap.l 

114(a6),d5 

1D5C 

bne.s 

FC1D6C 

1D5E 

lea 

6(pc),a5 

1D62 

j»p 

-1E(a6) 

1D66 



1D66 FC1D66 

addq.l 

/6.a7 

1D68 

Jip 

-3C(a6) 

1D6C 



1D6C FC1D6C 

■oveq 

/0,d0 

1D6E 

Bovea.l 

(a7)+.d2-d3 

1D72 

rts 


1D74 









1D74 



1D74 FC1D74 

Bove.l 

a1,d0 

1D76 

bne.s 

FC1D7E 

1D78 

Bove.l 

114(a6),d0 

1D7C 

bra.s 

FC1DC6 

1D7E 



1D7E FC1D7E 

lea 

196(a6),a0 

1D82 

Bove.v 

/4000,INTENA 

1D8A 

addq.b 

/1,126(a6) 

1D8E 

Jsr 

-114(a6) 


j a1 d5 -> Task 
: tc_State :« 6 » 'Reeoved' 

; a1 • ThlsTask? 

: nein: -> 

: Forbld 

j a0 -> MeaEntry List Header 
; d2 lh_Head 
; Kein Eintrag Im Header: -> 

; Liste leer? 

: Ja: -> 

; lh_Head löschen 
; a0 -> HemLlst 
; d2 :- ln_Succ 
; Liste zu Ende: -> 

; —> FreeEntry 
i —> Loop 

: d3 - ThlsTask? 

: nein: -> 

; a3 :> FC1D66: RQckkehradresse 
: —> Supervisor 

; Supervisor-Einträge vom Stack nehmen 
; —> Dispatch 

; d0 :• 0 

j Register ulederherstellen 


FlndTask 
d0 :> a1 

Nicht die laufende Task: -> 
d0 ThlsTask 
—> 

a0 -> Ready List Header 
Interrupts sperren 
Dlsable 
—> FlndName 
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1D92 

tst.l 

d0 

1D94 

bne.s 

FC1DB8 

1D96 

lea 

1A4(a6),a0 

1D9A 

jsr 

-114(a6) 

1D9E 

tst.l 

d0 

1DA0 

bne.s 

FC1DB8 

1DA2 

aovea.l 

114(a6),a0 

1DA6 

aovea. 1 

A(a0),a0 

1DAA FC1DAA 

capa.b 

(a0)+.(a1)+ 

1DAC 

bne.s 

FC1DB8 

1DAE 

tst.b 

-1(a0) 

1DB2 

bne.s 

FC1DAA 

1DB4 

Bove. 1 

114(a6),d0 

1DB8 FC1DB8 

subq.b 

/1.126(a6) 

1DBC 

bge.s 

FC1DC6 

1DBE 

■ove.v 

/C000,INTENA 

1DC6 FC1DC6 

rts 


1DC8 









1DC8 



1DC8 FC1DC8 

Bove.v 

/4000,1NTENA 

1DD0 

addq.b 

/1,126(a6) 

1DD4 

aove.b 

9(a1),-(a?) 

1DD8 

aove.b 

d0,9(a1) 

1DDC 

capa.l 

114(a6),a1 

1DE0 

beq.s 

FC1E00 

1DE2 

capl.b 

/J.F(al) 

1DE8 

bne.s 

FC1E04 

1DEA 

Bove.l 

a1,d0 

1DEC 

bsr 

FC1600 

1DF0 

lea 

196(a6),a0 

1DF4 

aovea.l 

d0,a1 

1DF6 

bsr 

FC1654 

1DFA 

capa.l 

196(a6),a1 

1DFE 

bne.s 

FC1E04 

1E00 FC1E00 

jsr 

-50(a6) 

1E04 FC1E04 

subq.b 

/1,126(a6) 

1E08 

bge.s 

FC1E12 

1E0A 

BOve.v 

/C000,INTENA 

1E12 FC1E12 

ffioveq 

/0,d0 


gefunden? 
ja: -> 

a.e -> Ualt List Header 
—> FlndNaae 
gefunden? 
ja: -> 

a0 :- ThisTask 

a0 -> Naae der laufenden Task 
zeichenweiser Nanensverglelch 
ungleich: -> 

Endeaarke erreicht? 

nein: Vergleich fortsetzen -> 

d0 :» ThisTask 

Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 


SetTaskPrl 

Interrupts sperren 
Disable 

Alte Priorität auf Stack retten 
Neue Priorität eintragen 
a1 - ThisTask? 

Ja: -> 

tc_State • 'Ready’? 
nein: -> 
a1 ln dB retten 

—> Reaove Task aus Ready List 
a0 -> Ready List Header 
a1 vlederherstellen 
—> Enqueue alt neuer Priorität 
Steht Task aa Anfang der Liste? 
nein: -> 

—> Reschedule 
Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 
d0.1 :- 0 


Seite 140 


Amiga Know-how 







Amiga Exec 33. 192 


1E14 aove.b (a7)+,d0 

1E16 rts 

1E18 

1E18 ;--- 

1E18 

1E18 FC1E18 lovea.l 114(a6).a1 
1E1C lea tE(a1),a8 

1E20 bra.s FC1E2A 

1E22 

1E22 :-- 

1E22 


1E22 FC1E22 

Bovea.l 

114(a6),a1 

1E26 

lea 

1A(a1),a0 

1E2A FC1E2A 

and. 1 

d1,d0 

1E2C 

■ove.v 

/4000,INTENA 

1EJ4 

addq.b 

/1,126(a6) 

1E38 

■ove.l 

(a0).-(a7) 

1E?A 

not.l 

dl 

1E3C 

and.l 

(a0).d1 

1E3E 

or.l 

d0,d1 

1E40 

Bove.l 

d1,(a0) 

1E42 

Bove.l 

1A(a1),d0 

1E46 

bra.s 

FC1E5C 

1E48 









1E48 



1E48 FC1E48 

lea 

1A(a1),a0 

1E4C 

Bove.v 

/4000,INTENA 

1E54 

addq.b 

/1,i26(a6) 

1E38 

Bove.l 

(a0).-(a7) 

1E3A 

or.l 

d0,(a0) 

1E5C FC1E5C 

Bove.l 

1E(a1),d1 

1E60 

and.l 

d0,d1 

1E62 

bne.s 

FC1EAE 

1E64 

capi .b 

/4.F(a1) 

1E6A 

bne.s 

FC1EBE 

1E6C 

and.l 

16<a1),d0 

1E70 

beq.s 

FC1EBE 

1E72 FC1E72 

lea 

1A4(a6),a0 

1E76 

aove.l 

a1,d0 


; d0 :« alte Priorität 


SetExcept 

; a1 ;> ThisTask 
; a0 -> tc_SigExcept 
. —> 

SetSignal 

! a1 ThisTask 
i a0 -> tc_SigRecvd 
; Neue Signale oaskieren 
i Interrupts sperren 
; Dlsable 

; Alte Signale auf Stack retten 
; Signalaaske invertieren 
; Signale neu setzen 

; d0 :• tc_SlgRecvd 

. .„> 

Signal 

: a0 -> tc_SigRecvd 
: Interrupts sperren 
; Dlsable 

; Alte Signale auf Stack retten 
; Neues Signal einodern 
: d1 :* tc_SlgExcept 
; Bit neuen Signal Odern 
; Neues Signal ist Except-Slgnal: -> 
: Status ’Ualt’? 

: nein: -> 

j Härtet Task auf dieses Signal? 

: nein: -> 

j a0 -> Halt List Header 
: Remove Task aus Halt List 
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1E78 

aovea. 1 

(a1),a0 

1E7A 

lovea.l 

4(a1).a1 

1B7E 

Bove.l 

a0,(a1) 

1 Ee 0 

Bove. 1 

a1.4(a0) 

1E84 

Bovea.l 

d0.a1 

1E86 

Bove.b 

/5.F(a1) 

1E8C 

lea 

196(a6),30 

1E90 

bsr 

FC1654 

1E94 

CBpa. 1 

196(a6),a1 

1E98 

bne.s 

FC1EBE 

1E9A FC1E9A 

subq.b 

/1,126(a6) 

1E9E 

bge.s 

FC1EA8 

1EA0 

Bove.v 

#C000.INTENA 

1EA8 FC1EA8 

Bove. 1 

(a7)+,d0 

1EAA 

jmp 

-J0(a6) 

1EAE 



1EAE FC1EAE 

bset.b 

«.E(a1) 

1EB4 

CBpi.b 

/4.F(a1) 

1EBA 

beq.s 

FC1E72 

1EBC 

bra.s 

FC1E9A 

1EBE 



1EBE FC1EBE 

subq.b 

/1.t26(a6) 

1EC2 

bge.s 

FC1ECC 

1EC4 

Bove.v 

/C000,INTENA 

1ECC FC1ECC 

aove.l 

(a7)+,d0 

1ECE 

rts 


1ED0 









1ED0 



1ED0 FC1ED0 

Bovea.l 

114(a6).a1 

1ED4 

Bove.l 

d0,16<a1) 

1ED8 

nove.v 

/4000,INTENA 

1EE0 

addq.b 

/1.126(a6) 

1EE4 

bra.s 

FC1F1Ä 

1EE6 



1EE6 FC1EE6 

Bove.b 

/4.F(a1) 

1EEC 

lea 

1A4(a6),a0 

1EF0 

lea 

4(a0),a0 

1EF4 

BOve. 1 

4(a0),d0 

1EF8 

aove.l 

a1,4(a0) 


a1 :• dH -> Task 

tc_State :• 'Ready' 

a0 -> Ready List Header 

—> Enqueue Task ln Ready List 

Steht Task aa Anfang der Liste? 

nein: -> 

Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 
d0 :* alte Signale 
—> Reschedule 

'Except' ln tc_Flags setzen 
tc_State - 'Halt'? 
ja: Task ln Ready List setzen -> 
sonst -> 

Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 
d0 := alte Signale 


Halt 

a1 :- ThisTask 
tc_SlgHalt :- d0 
Interrupts sperren 
Disable 
—> 

tc_State :* 4 • 'Halt' 

a0 -> Task Halt List 

AddTall: Task am Listenende anfUgen 
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1EFC 

move.l 

a0.(a1) 

1EFE 

move.l 

d0.4(a1) 

1F02 

■ovea. 1 

d0,a0 

1F04 

move.l 

a1.(a0) 

1F06 

novea.1 

a3,a0 

1F08 

lea 

-J6(a6),a5 

1F0C 

Jsr 

-1E(a6) 

1F10 

novea. 1 

a0,a5 

1F12 

novea. 1 

114(a6),a1 

1F16 

nove. 1 

16(a1),d0 

1F1A FC1F1A 

nove. 1 

1A(a1),d1 

1F1E 

and. 1 

d0,d1 

1F20 

beq.s 

FC1EE6 

1F22 

eor.l 

dl ,1A(a1) 

1F26 

subq.b 

/1,126(a6) 

1F2A 

bge.s 

FC1F34 

1F2C 

■ove.v 

/C000,INTENA 

1F54 FC1F54 

nove.l 

d1,d0 

1F36 

rts 


1F38 






1F38 



1F38 FC1F58 

bset.b 

/7,124(a6) 

1F3E 

sne 

d0 

1F40 

tst.b 

127(a6) 

1F44 

bge.s 

FC1F58 

1F46 

tst.b 

126(a6) 

1F4A 

blt.s 

FC1F74 

1F4C 

tst.b 

d0 

1F4E 

bne.s 

FC1F58 

1F50 

■ove.v 

/8004,INTREQ 

1F58 FC1F58 

rts 


1F5A 






1 • e 



1F5A 



1F5A FC1F5A 

addq.b 

/1,127(a6) 

1F5E 

rts 



1F60 
1F60 : 
1F60 


a.5 ln a0 retten 
aS -> Switch 
—> Supervisor, Switch 
a5 wiederherstellen 
a1 :• ThlsTask 
d0 :• tc_SlgHalt 
dl :• tc_SlgRecvd 
Erwartetes Signal empfangen? 
nein: warten -> 

Slgnalblt Idschen 
Enable 

Noch keine Freigabe: -> 
Interrupts freigeben 
d0 :• Empfangenes Signal 


Reschedule 

SAR • ’Schedullng Attn reqd’ setzen 
d0 :• -1, wenn Flag gesetzt war 
Forbld gesetzt? 

Ja: -> 

Dlsable gesetzt? 
nein: -> 

war SAR gesetzt? 

Ja: -> 

Request Softint 


Forbld 

; TDNestCnt erhöhen 


Permlt 
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1F6B FC1F6B 

subq.b 

/1,127(a6) 

1F64 

bge.s 

FC1F8B 

1F66 

tst.b 

126(a6) 

1F6A 

bge.s 

FC1F8B 

1F6C 

btst.b 

/7.124(a6) 

1F72 

beq.s 

FC1F8B 

1F74 FC1F74 

Bove . 1 

a5.-<a7) 

1F76 

lea 

A(pc),a5 

1F7A 

jsr 

-1E(a6) 

1F7E 

Bovea. 1 

(a7)+.a5 

1F8B FC1F8B 

rts 


1F82 



1F82 FC1F82 

btst.b 

«,(a7) 

1F86 

beq.s 

FC1F8A 

1F88 

rte 


1F8A 



1F8A FC1F8A 

j»p 

-2A(a6) 

1F8E 









1F8E 



1F8E FC1F8E 

Bovea. 1 

114(a6),a1 

1F92 

■ove.v 

22(a1),d1 

1F96 

CBpl .b 

/FF,dB 

1F9A 

beq.s 

FC1FA2 

1F9C 

bset.l 

dB,dl 

1F9E 

beq.s 

FC1FAE 

1FAB 

bra.s 

FC1FAC 

1FA2 



1FA2 FC1FA2 

Boveq 

/F,dB 

1FA4 FC1FA4 

bset.l 

dB,dl 

1FA6 

beq.s 

FC1FAE 

1FA8 

dbra 

dB,FC1FA4 

1FAC FC1FAC 

moveq 

/FF,dB 

1FAE FC1FAE 

Bove.v 

d1,22(a1) 

1FB2 

rts 



1FB4 

1FB4 :- 

1FB4 

1FB4 FC1FB4 Bovea.l 114(a6),a1 
1FB8 Bove.w 22(a1),d1 


TDNestCnt erniedrigen 
Noch nicht -1: -> 

Dlsable gesetzt? 
ja: -> 

SAR gesetzt? 
nein: -> 

aB auf Stack retten 
a5 :• FC1F82: Rückkehradresse 
—> Supervisor 
a5 wiederherstellen 


; War Supervisor-Mode schon gesetzt? 
: nein: -> 


: —> Schedule 

AllocTrap 

: a1 :• ThlsTask 
: dl :- tc_TrapAlloc 
; spezielle TrapnuBser angefordert? 
; nein: -> 

; Trapbit in tc_TrapAlloc setzen 
; war noch nicht gesetzt: -> 

; sonst Fehler -> 

: dB :» höchste Bögllche Trapnumner 
j ln tc_TrapAlloc setzen 
; war noch frei: -> 

; sonst nächste NuBmer versuchen -> 
: Kein Trap frei: dB ;• -1 
: tc_TrapAlloc zurückschreiben 


FreeTrap 

; a1 :• ThlsTask 
: d1 := tc_TrapAlloc 
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1FBC 


bclr.l 

d0,d1 

1FBE 


■ove.v 

d1,22(a1) 

1FC2 

1FC4 

1FC4 


rts 


8 



1FC4 




1FC4 

FC1FC4 

■ovea.l 

114(a6),a1 

1FC8 


Bove.l 

12(a1),d1 

1FCC 


capl.b 

/FF,d0 

IFD0 


beq.s 

FC1FD8 

1FD2 


bset.l 

d0,d1 

1FD4 


beq.s 

FC1FE6 

1F06 


bra.s 

FC1FE2 

1FD8 




1FD8 

FC1FD8 

■oveq 

/1F.d0 

IFDA 

FCIFDA 

bset.l 

d0,dl 

1FDC 


beq.s 

FC1FE6 

1FDE 


dbra 

d0.FC1FDA 

1FE2 

FC1FE2 

■oveq 

/FF,d0 

1FE4 


bra.s 

FC1FFA 

tFE6 




1FE6 

FC1FE6 

■ove.1 

d1,12(a1) 

1FEA 


■oveq 

/FF,dl 

1FEC 


bclr.l 

d0,d1 

1FEE 


and.l 

d1,1A(a1) 

1FF2 


and.l 

d1,1E(a1) 

1FF6 


and.l 

d1.16<a1) 

1FFA 

1FFC 

1FFC 

FC1FFA 

rts 


1 



1FFC 




1FFC 

FC1FFC 

■ovea.l 

114<a6),a1 

2080 


■ove.l 

12(a1),d1 

2004 


bclr.l 

d0,d1 

2006 


■ove.l 

d1,12(a1) 

200A 

200C 

200C 


rts 


% 



200C 




200C 

( 

Strlngll 

änge ermitteln 


; Trap freigeben 
; tc_TrapAlloc zurQckschreiben 


AllocSlgnal 

a1 ThlsTask 
dl :• tc_SlgAlloc 

spezielle Slgnalnuziner angefordert? 
nein: -> 

Slgnalblt setzen 
war noch frei: -> 
sonst Fehler -> 

dO :• höchste zögllche Slgnalnuaner 
Slgnalblt setzen 
war noch frei: -> 

sonst nächste Slgnalnr versuchen -> 
Kein Signal frei: d0 :- -1 
—> 

Signale zurQckschreiben 
Alle Bits ln dl setzen 
Neues Slgnalblt löschen 
ln tc_SlgRecvd, 
ln tc_SlgExcept und 
ln tc_SlgHalt 


FreeSlgnal 

a1 :- ThlsTask 
d1 :- tc_SlgAlloc 
Signal löschen 
tc_SlgAlloc zurückschreiben 


RauDoFnt - Subroutinen 
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2eec 




200C FC200C 

Boveq 

/FF.d2 

d2 -1 

200E FC200E 

tst.b 

(a0)+ 

Zeigt a0 auf Endemarke? 

2010 

dbeq 

d2.FC200E 

nein: d2 vermindern, -> 

2014 

neg.l 

d2 

d2 negieren 

2016 

subq.v 

/I .d2 

und 1 subtrahieren 

2018 

rts 



201A 




201A :- 

Dezimal 

-String ln Binärzahl 

wandeln 

201A 




201A FC201A 

clr.l 

d0 

d0 :■= 0 Ergebnisregister 

201C 

clr.1 

d2 

d2 0 Nächste Ziffer 

201E FC201E 

move.b 

(a4)+.d2 

d2 Zeichen aus String 

2020 

cmpi.b 

/’0' ,d2 

Dezimalziffer? 

2024 

bcs.s 

FC203E 


2026 

cmpi.b 

/'9’.d2 


202A 

bhl.s 

FC203E 

nein: -> 

202C 

add.l 

d0,d0 

Ergebnisregister 

202E 

move.l 

d0,d1 

mit 10 multiplizieren 

2030 

add.l 

d0,d0 


2032 

add.l 

d0,d0 


2034 

add.l 

d1,d0 


2036 

subl.b 

/’0’,d2 

: d2 :• Wert der Ziffer 

203A 

add.l 

d2,d0 

zum Ergebnisregister addieren 

203C 

bra.s 

FC201E 

—> Loop 

203E 




203E FC203E 

subq.l 

/1.a4 

Zeiger in String zurQcksetzen 

2040 

rts 



2042 




2042 i- 

Blnärzahl ln Dezlmal-Strlng wandeln 

2042 




2042 FC2042 

tst.l 

d4 

Zahl ln d4 

2044 

beq.s 

FC207A 

- 0: -> 

2046 

bml .s 

FC204C 

negativ: -> 

2048 

neg.l 

d4 

Zahl negieren 

204A 

bra.s 

FC2050 

—> 

204C 




204C FC204C 

move.b 

/■-',(a5)+ 

Minuszeichen ln Puffer 

2030 FC2030 

lea 

FC2084,a0 

a0 -> Tabelle der Zehnerpotenzen 

2056 

clr.w 

dl 

dl :* 0 (Flag für Anfangsnullen) 
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2058 FC2058 

■ove.l 

(a0)+,d2 

d2 nächster Uert aus Tabelle 

205A 

beq.s 

FC207A 

Tabellenende erreicht: -> 

205C 

■oveq 

/FF.d0 

d0 :• -1 

205E FC205E 

add.l 

d2,d4 

so oft d2 zur Zahl addieren, 

2060 

dbgt 

d0,FC205E 

bis Ergebnis positiv Ist, 

2064 

sub.l 

d2,d4 

dann einaal subtrahieren 

2066 

addq.v 

/1,d0 

wurde nur elnaal addiert? 

2068 

bne.s 

FC206E 

nein: -> 

206A 

tst.w 

d1 

liegt eine 'führende Null’ vor? 

206C 

beq.s 

FC2058 

Ja: nicht ausgeben -> 

206E FC206E 

■oveq 

/FF.dl 

Flag für Anfangsnullen setzen 

2070 

neg.b 

d0 

d0 :• Zahl der Additionen - 1 

2072 

addi.b 

/•0’,d0 

ergibt Ziffernkode 

2076 

■ove.b 

d0,(a5)+ 

Ziffer ln Puffer 

2078 

bra.s 

FC2058 

—> Loop 

207A 




207A FC207A 

neg.b 

d4 

d4 :- Wert der letzten Ziffer 

207C 

addi.b 

/’0’,d4 

ergibt Ziffernkode 

2080 

■ove.b 

d4,(a5)+ 

Ziffer ln Puffer 

2082 

rts 



2084 




2084 :- 

Tabelle 

der Zehnerpotenzen 


2084 




2084 FC2084 

DC.L 

3B9ACA00 

1 000 000 000 

2088 

DC.L 

5F5E100 

100 000 000 

208C 

DC.L 

989680 

10 000 000 

2090 

DC.L 

F4240 

1 000 000 

2094 

DC.L 

186A0 

100 000 

2098 

DC.L 

2710 

10 000 

209C 

DC.L 

3E8 

1 000 

20A0 

DC.L 

64 

100 

20A4 

DC.L 

A 

10 

20A8 

DC.L 

0 

Endemarke 

20AC 




20AC :- 

Binärzahl ln Hex-Strlng wandeln 

20AC 




20AC FC20AC 

tst.l 

d4 

Zahl ln d4 

20AE 

beq.s 

FC207A 

- 0; Ziffer '0' ausgeben -> 

20B0 

clr.w 

d1 

dl :» 0 = Flag für Anfangsnullen 

2082 

btst.l 

/2,d3 

Bit 2 ln d3 gesetzt? 
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20B6 

bne.s 

FC20BE 

20B8 

noveq 

/3.d2 

20BA 

svap 

d4 

20BC 

bra.s 

FC20C0 

20BE 



20BE FC20BE 

noveq 

/7,d2 

20C0 FC20C0 

rol.l 

/4,d4 

20C2 

move.b 

d4,d0 

20C4 

andl.b 

/F,d0 

20C8 

bne.s 

FC20CE 

20CA 

tst.w 

dl 

20CC 

beq.s 

FC20E2 

20CE FC20CE 

noveq 

/FF.dl 

20D0 

cmpl .b 

/9.d0 

20D4 

bhi.s 

FC20DC 

20D6 

addi.b 

/■0’ .d0 

20DA 

bra.s 

FC20E0 

20DC 



20DC FC20DC 

addi.b 

/J7.d0 

20E0 FC20E0 

move.b 

d0,(a5)+ 

20E2 FC20E2 

dbra 

d2.FC20C0 

20E6 

rts 


20E8 









20E8 



20E8 FC20E8 

movem.l 

d2-d6/a2-a5.-(a7) 

20EC 

link 

a6,/-10 

20F0 

move.l 

a1,-(a7) 

20F2 

movea. 1 

a0,a4 

20F4 FC20F4 

move.b 

(a4)+.d0 

20F6 

beq.s 

FC2102 

20F8 

cmpi.b 

/■Ü’,d0 

20FC 

beq.s 

FC210C 

20FE FC20FE 

jsr 

(a2) 

2100 

bra.s 

FC20F4 

2102 



2102 FC2102 

jsr 

(a2) 

2104 

unlk 

a6 

2106 

movem.l 

(a7)+,d2-d6/a2-a5 

210A 

rts 



; Ja: 8 Stellen -> 

: d2 J ergibt 4 Stellen 
; Zahlwort in oberen Teil holen 
. 

: d2 := 7 ergibt 8 Stellen 
: d4, Bits 3 bis J := nächste Stelle 
: d0.b := d4.b 
: stelle Isolieren 
: nicht Null: -> 

: Anfangsnull? 

: ja: nicht ausgeben -> 

; Flag für Anfangsnullen setzen 
; Stellenwert > 9? 

! ja: -> 

i ergibt Ziffernkode 

. — > 

: ergibt Buchstabenkode ’a’.’f’ 

: Ziffer ln Puffer 
i nächste Ziffer ermitteln -> 


RawDoFmt 

Register retten 

Ausgabepuffer einrichten 

a1 -> Ausgabedaten: auf Stack retten 

a4 a0 -> Formatstring 

d0 := Zeichen aus Formatstring 

Endemarke: -> 

folgt Formatanweisung? 

ja: -> 

—> Zeichen direkt ausgeben 
—> Loop 

—> Zeichen direkt ausgeben 
Ausgabepuffer auflBsen 
Register wiederherstellen 
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210C 



210C ;- 

Formatanweisung bearbeiten 

210C 



210C FC210C 

lea 

-10(a6),a5 

2110 

clr.w 

d3 

2112 

cmpi.b 

/’-’.(a4) 

2116 

bne.s 

FC211E 

2118 

bset.l 

/0,d5 

211C 

addq. 1 

/I .a4 

211E FC211E 

cmpi.b 

/’0’.(a4) 

2122 

bne.s 

FC2128 

2124 

bset.l 

/I .d3 

2128 FC2128 

bsr 

FC201A 

212C 

sove.v 

d0,d6 

212E 

clr.l 

d5 

21?0 

cmpi.b 

/’.’.(a4) 

21J4 

bne.s 

FC213E 

2176 

addq.v 

/1.a4 

2138 

bsr 

FC201A 

213C 

move.v 

d0.d5 

213E FC213E 

cmpi.b 

/’l’.(a4) 

2142 

bne.s 

FC214A 

2144 

bset.l 

/2.d3 

2148 

addq.v 

/1,a4 

214A FC214A 

move.b 

(a4)+,d0 

214C 

cmpi.b 

/’d’.d0 

2150 

bne.s 

FC215A 

2152 

bsr.s 

FC2168 

2154 

bsr 

FC2042 

2158 

bra.s 

FC21A2 

215A 



215A FC215A 

cmpi.b 

/’x’.d0 

215E 

bne.s 

FC2188 

2160 

bsr.s 

FC2168 

2162 

bsr 

FC20AC 

2166 

bra.s 

FC21A2 

2168 



2168 ;- 

Ausgabezahl nach d4 holen 

2168 



2168 FC2168 

btst.l 

/2,d3 


a5 -> Ausgabepuffer 
dj.w 0 (Flags) 

Erstes Zeichen 
nein: -> 

Flagbit 0: Ausgabe linksbündig 
Fornatzelger vorrücken 
Nächstes Zeichen ’0'? 
nein: -> 

Flagbit 1: ult Nullen auffUllen 
—> Dezlmalstrlng-Binär-Handlung 
d6 :• d0 • «Inlmale Feldbreite 
d5 0 

Nächstes Zeichen 
nein: -> 

Formatzeiger vorrücken 
—> Dezlmalstrlng-Blnär-Handlung 
dS> ;> d0 • maximale Feldbreite 
Nächstes Zeichen ’l’? 
nein: -> 

Flagbit 2: Argument ’long' 
Formatzeiger vorrücken 
d0 :• nächstes Zeichen 
’d’: Dezimaldarstellung? 
nein: -> 

—> Ausgabedaten nach d4 holen 
—> Binär-Dezlmalstring-Wandlung 
—> Abschluß 

’x’: Hex-Darstellung? 
nein: -> 

—> Ausgabedaten nach d4 holen 
—> Blnär-Hexstring-Handlung 
—> Abschluß 


; Har ’l’ angegeben? 
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216C 

bne.s 

FC217C i 

216E 

movea. 1 

4(a7),al : 

2172 

Bove.v 

(a1)+.d4 ; 

2174 

move.l 

a1,4(a7) ! 

2178 

ext.l 

d4 i 

217A 

rts 


217C 



217C FC217C 

movea. 1 

4(a7),a1 ; 

2180 

move.l 

(a1)+,d4 : 

2182 

move.l 

a1.4(a7) ; 

2186 

rts 


2188 



2188 :- 

Fortsetzung der Fornatstring 

2188 



2188 FC2188 

cmpi .b 

/’s’.d0 ; 

218C 

bne.s 

FC2196 : 

218E 

movea. 1 

(a7),a1 

2190 

movea. 1 

(a1)+,a5 : 

2192 

move.l 

a1.(a7) ; 

2194 

bra.s 

FC21A8 j 

2196 



2196 FC2196 

cmpl.b 

/’c’.d0 

219A 

bne 

FC20FE 

219E 

bsr.s 

FC2168 

21A0 

nove.b 

d4.(a5)+ 

21A2 FC21A2 

clr.b 

(a5) 

21A4 

lea 

-10(a6),a5 

21A8 FC21A8 

movea.1 

a9,a0 

21AA 

bsr 

FC200C 

21AE 

tst.w 

d5 

21B0 

beq.s 

FC21B6 

2162 

CDp.V 

d5.d2 

21B4 

bhl.s 

FC21B8 

21B6 FC21B6 

aove.v 

d2,d9 

21B8 FC21B8 

sub.w 

d5,d6 

21BA 

bpl.s 

FC21BE 

21BC 

clr.w 

d6 

21BE FC21BE 

btst.l 

/0.d5 

21C2 

bne.s 

FC21CC 

21C4 

bsr.s 

FC21DE 


Ja: -> 

a1 *> Ausgabedaten 
d4 Datenuort 

neues a1 aurückschrelben 
Datenvort auf Langvort erweitern 

a1 -> Ausgabedaten 
d4 Datenlangwort 

neues a1 zurilckschreiben 


'Bearbeitung 

’s’: Zeichenkette? 
nein: -> 

al -> Ausgabedaten 
a5 -> Zeichenkette 
neues a1 zurQckspelchern 
—> Abschluß 

’c’: Einzelnes Zeichen? 
nein: -> 

—> Zeichenkode nach d4 holen 
und ln Puffer schreiben 
Puffer alt Endekode 0 abschließen 
a5 -> Pufferanfang 
a0 :• a5 

—> Stringlange in Puffer ermitteln 
Maximale Feldlänge angegeben? 
nein: -> 

Stringlänge > maximale Feldlänge? 
ja: -> 

Feldlänge :- Stringlänge 
d6 :• Feldlänge - Stringlänge 
Feldlänge >» Stringlänge: -> 
d6 :- t 

Linksbündige Ausgabe? 

Ja: -> 

—> mit 0 oder Blanks auffollen 


Seite 150 


Amiga Know-how 









Amiga Exec 33.192 


21C6 

bra.s 

FC21CC 

—> 

21C8 




21C8 FC21C8 

■ove.b 

(a5)+.d0 

d0 :• Zeichen aus Puffer 

21 CA 

Jsr 

(a2) 

—> Zeichen ausgeben 

21CC FC21CC 

dbra 

d5,FC21C8 

bis alle Zeichen ausgegeben -> 

21D8 

btst.l 

/0,dJ 

Linksbündige Ausgabe? 

21D4 

beq 

FC20F4 

nein: -> 

21D8 

bsr.s 

FC21DE 

—> alt 0 oder Blanks auffüllen 

21DA 

bra 

FC20F4 

—> 

21DE 




21DE ;- 

Nullen 

oder Leerstellen ausgeben 

21DE 




21DE FC21DE 

■ove.b 

/’ ’.d2 

d2 :• Blank-Kode 

21E2 

btst.l 

/l.dj 

Auffüllung Bit Nullen gefordert? 

21E6 

beq.s 

FC21F2 

nein: -> 

21E8 

■ove.b 

/•0’.d2 

d2 ’0' 

21EC 

bra.s 

FC21F2 

—> 

21EE 




21EE FC21EE 

■ove.b 

d2,d0 

d0 ;> d2 ■ auszugebendes Zeichen 

21F0 

Jsr 

(a2) 

—> Zeichen ausgeben 

21F2 FC21F2 

dbra 

d6,FC21EE 

wiederholen bis d6 = -1 -> 

21F6 

rts 



21F8 




21F8 ;- 



RawIOlnlt 

21F8 




21F8 FC21F8 

■ove.v 

/174,SERPER 

Baudrate auf 9600 setzen 

2280 

rts 



2202 




2202 :- 



RawMayGetChar 

2202 




2202 FC2202 

Boveq 

/-1.d0 

Flag 'Kein Zeichen empfangen’ 

2204 

Bove.v 

SERDATR.dl 

Serielles Datenregister lesen 

220A 

btst.l 

/E.dl 

Empfangspuffer voll? 

220E 

beq.s 

FC2220 

nein: kein Zeichen gelesen -> 

2210 

fflove.v 

/800,INTREC! 

RBF-Interrupt-Request setzen 

2218 

andl.l 

/7F.d1 

Bits 0 bis 6 isolieren 

221E 

move.l 

d1,d0 

d0 :» gelesenes Zeichen oder -1 

2220 FC2220 

rts 



2222 




2222 :- 

Auf Zelchenempfang warten 
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2222 


2222 

FC2222 

bsr.s 

FC2202 

2224 


tst.l 

d0 

2226 


bnl.s 

FC2222 

2228 

222A 

222A 


rts 


f 



222A 




222A 


nove.l 

4(a7),d0 

222E 

FC222E 

tst.b 

d0 

22?0 


beq.s 

FC2272 

22?2 


■ove.v 

d0,-(a7) 

2234 


cnpl.b 

/A,d0 

2238 


bne.s 

FC223E 

223A 


■oveq 

/D,d0 

223C 


bsr.s 

FC2240 

223E 

FC223E 

Bove.v 

(a7)+.d0 

2240 

FC2240 

■ove.v 

SERDATR.dl 

2246 


btst.l 

/D.dl 

224A 


beq.s 

FC2240 

224C 

FC224C 

andi.w 

/FF,d0 

2230 


ori .w 

/100,d0 

2254 


■ove.v 

d0,SERDAT 

225A 


bsr.s 

FC2202 

225C 

FC225C 

cnpl.b 

/13.d0 

2260 


bne.s 

FC2266 

2262 


bsr.s 

FC2222 

2264 


bra.s 

FC225C 

2266 




2266 

FC2266 

cnpl.b 

/7F.d0 

226A 


bne.s 

FC2272 

226C 


bsr 

FC232E 

2270 


bra.s 

FC225C 

2272 




2272 

2274 

2274 

FC2272 

rts 


» 



2274 




2274 


novea.l 

4(a7),a0 

2278 

FC2278 

aove.b 

(a0)+,d0 


—> RavMayGetChar 
Zeichen eapfangen? 
nein: warten -> 


RawPutChar 

d0 :• Zeichenkode von Stack 
d0 - 0? 

Ja: fertig -> 
d0 auf Stack retten 
’Llne Feed’? 
nein: -> 

zunächst ‘Carrlage Return’ 

—> senden 

d0 :> Zeichen von Stack 
Serielles Datenregister lesen 
Sendepuffer leer? 
nein: warten -> 

Bits 8 bis 1$ loschen 
Stopblt setzen 

Zeichen ln Senderegister schreiben 
—> RawHayGetChar 
XOFF? 
nein: -> 

—> auf Zelchenenpfang warten 
—> Loop 

d0 - 127? 
nein: -> 

—> Debug 
—> Loop 


PutStr: String ausgeben 

: a0 -> String 
; d0 :• Zeichen aus String 
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227A 

beq.s 

FC228C 

227C 

cmpl.b 

/A.dB 

2280 

bne.s 

FC2288 

2282 

moveq 

/D,d0 

2284 

bsr.s 

FC222E 

2286 

moveq 

/A,dB 

2288 FC2288 

bsr.s 

FC222E 

228A 

bra.s 

FC2278 

228C 



228C FC228C 

rts 



228E 


228E ; 
228E 


228E 

movem.l 4(a7),dB-d1 

2294 FC2294 

movem.l 

d2-d3,-(a7) 

2298 

move.l 

dB,d2 

229A 

moveq 

/8,d3 

229C 

sub.v 

dl.d? 

229E 

bra.s 

FC22A2 

22A0 



22A0 FC22A0 

rol.l 

/4,d2 

22A2 FC22A2 

dbra 

d7,FC22AB 

22A6 

nove.v 

dl.dj 

22A8 

bra.s 

FC22C2 

22AA 



22AA FC22AA 

rol.l 

/4.d2 

22AC 

moveq 

/F,d0 

22AE 

and.b 

d2,dB 

22BB 

cmpl.b 

/9,d0 

22B4 

bls.s 

FC22BA 

22B6 

addl.b 

/7,d0 

22BA FC22BA 

addl.b 

/’B’.dB 

22BE 

bsr 

FC222E 

22C2 FC22C2 

dbra 

d7.FC22AA 

22C6 

moveq 

/’ ’.dB 

22C8 

bsr 

FC222E 

22CC 

movem.l 

(a7)+,d2-d3 

22D0 

rts 



22D2 
22D2 ; 


Endenarke: -> 

’Llne Feed’? 
nein: -> 

d0 ’Carrlage Return’ 

—> RavPutChar 
dB ’Llne Feed’ 

—> RavPutChar 
—> Loop 


PutHex: Hex-Zahl ausgeben 

; dB :• Wert, d1 :« Stellenzahl 
; Register retten 
; d2 :» dB • Zahlenvert 

; dJ 8 

: dj 8 - Stellenzahl 

. — > 

; Zahl ln d2 linksbündig machen 

: dj dl = Stellenzahl 

. —> 

; Nächste Stelle ln Byteposition 
; Bits B bis 7 setzen 
; dB :• Stellenwert 
: dB > 9? 

: nein: -> 

: zur Erzeugung der Ziffern A,...,F 
; ergibt ASCII-Kode 
: —> RavPutChar 
; bis alle Stellen ausgegeben: -> 

; Leerstelle 
; —> RavPutChar 
: Register wiederherstellen 


PutFnt: Formatiert ausgeben 
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22D2 

22D2 FC22D2 aove.l a2,-(a7) ; a2 retten 

22D4 lea -A8(pc).a2 ; a2 FC224C: RawPutChar 

22D8 bsr FC20E8 ; —> RauDoFnt 

22DC Bovea.l (a7)+,a2 ; a2 vlederherstellen 

22DE rts 

22E0 

22E0 :- Open 

22E0 

22E0 FC22E0 aove.l a6,d0 ; d0 :> LibBase 

22E2 addq.v /1,20(a6) ; OpenCnt inkreoentieren 

22E6 rts 

22E8 

22E8 ;- Close 

22E8 

22E8 FC22E8 subq.w /1,20(a6) ; OpenCnt dekrenentieren 

22EC 

22EC ;- Expunge, Extfunct 

22EC 

22EC FC22EC aoveq /0,d0 ; d0 :• 0 

22EE rts 

22F0 

22F0 --- ROM-Wack 

22F0 

22F0 FC22F0 DC.B 0A,’roa-wack’,0 

22FA 

22FA :.ROMWack Initialisieren 

22FA 

22FA FC22FA aove.l a6,-(a7) j a6 auf Stack retten 

22FC Bovea.l /200,a6 ; a6 -> ROM-Wack Arbeitsbereich 

2502 bsr FC2472 ; —> Arbeitsbereich Initialisieren 

2506 aovea.l (a7)+,a6 j a6 vlederherstellen 

2508 aove.l /FC2542,42(a6) ; DebugEntry setzen 

2510 aove.l /FC252E.-70(a6) ; Debug-Adresse ln Sprungliste 

2518 bsr FC21F8 ; —> RauIOInlt 

251C rts 

251E 

251E ;- Step ausfQhren 

251E 

251E FC251E aove.l /9,-(a7) ; Nuamer des STEP-Vektors auf Stack 
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2324 bra.s FC2342 

2326 

2326 :.. 

2326 

2326 FC2326 aove.l /2F.-(a7) 
232C bra.s FC2342 

232E 

232E :.. 

232E 


232E FC232E 

Bove.l 

a5.-(a7) 

2338 

lea 

6(pc),a5 

2334 

Jmp 

-1E(a6) 

2338 



2338 FC2338 

aove 

usp,a5 

233A 

aove.l 

(a5)+,-(a7) 

233C 

aove 

a5,usp 

233E 

aovea.l 

(a7)+,a5 

2348 

clr.l 

-(a7) 

2342 FC2342 

aove. 1 

/F1E2D3C4,-(a7) 

2348 

capl.l 

/F1E2D3C4.(a7)+ 

234E 

beq.s 

FC235E 

2358 

aovea.l 

/48888,a7 

2356 

clr.l 

-(a7) 

2358 

clr.w 

-(a7) 

235A 

clr.l 

-(a7) 

235C 

not.l 

(a7) 

235E FC235E 

aovea.l 

d8-d7/a8-a6,-(a7) 

2362 

lea 

3C(a7).a5 

2366 

lea 

-16(a7),a7 

236A 

aovea.l 

a7,a4 

236C 

clr.l 

12(a4) 

2378 

aove. 1 

(a5)+,d3 

2372 

aove.l 

d3,E(a4) 

2376 

aove.l 

a5,A(a4) 

237A 

aove 

usp,a8 

237C 

aove.1 

a8,6(a4) 

2388 

bsr 

FC8546 

2384 

tst.b 

d8 

2386 

bne.s 

FC2396 

2388 

capi .V 

/3,d3 


; —> 

Breakpoint bearbeiten 

j Nuaaer des Vektors Trap /15 
. —> 

Debug 

: a5 auf User-Stack retten 
j a5 :• FC2338 (RQckkehradresse) 

: —> Supe<rvlsor 

; a.5 von User-Stack nehnen 
; und ln System-Stack setzen 
; USP anpassen 
; a3 vlederherstellen 
; Nächstes Stack-Langvort löschen 
; Testlangvort auf Stack legen 
: und prüfen, ob vorhanden 
; ok: -> 

; sonst Systea-Stack neu einrichten 
; Langvort f) auf Stack 
; Hort 8 auf Stack 
: Langvort -1 auf Stack 

j Register retten 

i a5 :• Stackadresse vor den Registern 

; a7 um 22 erniedrigen 

: a4 -> Anfang des Debug-Stackbereichs 

: Task-Zelger löschen 

; d3 :• Ausnahmevektornuaner 

; in Stackbereich kopieren 

; a3 ln Stackbereich kopieren 

; User-Stackpolnter 

: ln Stackbereich kopieren 

. —> Prozessortyp ermitteln 

; n 68888? 

; nein: -> 

: Vektornummer > 37 
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238C 

bgt.s 

FC2396 

Ja: -> 

2J8E 

cnipi .V 

/2,d3 

VektornuBffler < 2? 

2392 

blt.s 

FC2396 

Ja: -> 

2394 

addq. 1 

/8,a5 

bei Adres- oder Busfehler 

2396 FC2396 

btst.b 

/5,(a5) 

war Supervisor-Mode gesetzt? 

239A 

bne.s 

FC23A6 

Ja: -> 

239C 

movea. 1 

4,a0 

a0 := SysBase 

23A0 

nove.l 

114(a0).12(a4) 

ThlsTask ln Stackbereich kopieren 

23A6 FC23A6 

Bove.v 

(a5)+.4(a4) 

Statusregister ln Stackbereich 

23AA 

Dove.l 

(a5),0(a4) 

RQckkehradresse in Stackbereich 

23AE 

aovea.l 

/200,a6 

a6 -> Debug-Arbeltsberelch 

23B4 

move.v 

INTENAR,EA(a6) 

Int Enable Bits ln Arbeitsbereich 

23BC 

Dove.v 

/801,d0 

Serial Port Interrupt Bits 

23CB 

Bove.v 

d0,INTENA 

Interrupts sperren 

23C6 

bset. 1 

/F.d0 

Bit 15 setzen 

23CA 

and.v 

d0,EA(a6) 

mit Int Enable Bits maskieren 

23CE 

bsr 

FC21F8 

—> RawIOInit 

23D2 

lea 

-E4(pc),a0 

a0 := FC22F0: Text ’rom-wack’ 

23D6 

bsr 

FC2278 

—> Putstring 

23DA 

nove.1 

a4,84(a6) 

Zeiger auf Stackbereich in Arb.Bereich 

23DE 

Boveq 

/FE,d2 

Bit 0 :* 0. Bits 1 bis 31 :- 1 

23E0 

and. 1 

0(a4),d2 

Bit 0 ln Rückkehradresse löschen 

23E4 

move. 1 

d2.0(a4) 

RUckkehradresse ln Stackbereich 

23E8 

nove.1 

d2,C(a6) 

Rückkehradresse ln Arbeitsbereich 

23EC 

cnpi.l 

/2F.E<a4) 

Auslösung durch Breakpoint? 

23F4 

bne.s 

FC23FE 

nein: -> 

23F6 

subq.1 

/2,C(a6) 

Aktuelle Adresse um 2 vermindern 

23FA 

bsr 

FC28A2 

—> Breakpoint entfernen 

23FE FC23FE 

fflove.l 

C(a6),0(a4) 

Aktuelle Adresse ln Stack setzen 

2404 

movea.1 

a4,a1 

a1 -> Debug-Stackberelch 

2406 

aove.l 

/FC2326.BC 

Trap /15 auf FC2326 richten 

240E 

move.l 

/FC231E.24 

Step-Vektor auf FC231E richten 

2416 

nove.l 

/1000000.18(a6) 

Ersatzwert für LIMIT speichern 

241E 

bsr 

FC27EA 

—> Register ausgeben 

2422 

bsr 

FC2B94 

—> Kommandoschleife 

2426 

2426 :- 

TAB-Taste oder CTRL-I: Prograamschrltt 

2426 

2426 FC2426 

Bovea. 1 

84(a6),a0 

a0 := Debug-Datenbasls 

242A 

move.v 

4(a0).56(a0) 

Statusregister in Systemstack 
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2430 

orl.u 

/8000,56<a0) 

Step-Bit setzen 

2436 

bra.s 

FC2452 

—> 

2438 




2438 :.- 

GO: Programm ab aktueller Adresse ausführen 

2438 




2438 FC2438 

movea.l 

84(a6),a0 

a0 Debug-Datenbasis 

243C 

move.l 

C(a6),0(a0) 

Aktuelle Adresse auf Debug-Stack 

2442 




2442 ;- 

RESUHE oder CTRL-D: Programmausführung fortsetzen 

2442 




2442 FC2442 

movea.l 

84(a6),a0 

a0 Debug-Datenbasis 

2446 

Bove.v 

4(a0).56(a0) 

Statusregister ln Systemstack 

244C 

andi .V 

/7FFF.56(a0) 

Step-Bit rücksetzen 

2452 FC2452 

Bove.v 

EA(a6),INTENA 

Interrupts freigeben 

245A 

move.l 

0(a0),58(a0) 

Debug-PC in Systemstack 

2460 

movea.l 

6(a0),a1 

a1 User-Stackpointer 

2464 

sove 

a1,usp 

usp aus Debug-Stack belegen 

2466 

lea 

16(a0),a7 

ssp auf Registerliste setzen 

246A 

movem.l 

(a7)+,d0-d7/a0-a6 

Register Installieren 

246E 

addq. 1 

/4.a7 

ssp auf Systemstack setzen 

2470 

rte 



2472 




2472 ;- 

Debug-Arbeltsberelch initialisieren 

2472 




2472 FC2472 

movea.l 

a6,a0 

a0 := a6 -> Arbeitsbereich 

2474 

Bove.v 

/75,d0 

d0 := Hortzähler 

2478 FC2478 

clr.w 

(a0) + 

118 Horte löschen 

247A 

dbra 

d8,FC2478 


247E 

move.1 

/FC3254.0(a6) 

Anfang der Tastenkode-Tabelle 

2486 

move.l 

/10,14(a6) 

Rahmen-Größe 

248E 

move.v 

/4E4F,88(a6) 

Opcode für Breakpoint (Trap /15) 

2494 

rts 



2496 




2496 

DC.W 

0 


2498 




2498 :- 




2498 




2498 

movea.l 

4(a7).a0 

Diese Routinen werden nicht 

249C 

move.l 

(a0).d0 

gerufen 

249E 

rts 
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24A0 




24A0 


Bovea.l 4(a7),a0 


24A4 


move.v (a0),d0 


24A6 


rts 


24A8 




24A8 


Boven.l 4(a7),a0-a1 


24AE 


Bove.v a1,(a0) 


2480 


rts 


2482 




2482 


User: Rückkehr zu Multitasking 

2482 




2482 

FC24B2 

Bovea.l 84(a6),a0 

a0 := Debug-Datenbasls 

2486 


btst.b /5,4(a0) 

War Supervisor-Bit gesetzt? 

248C 


bne.s FC24EC 

Ja: -> 

24BE 


Bovea.l 6(a0),a1 

a1 :• User-Stackpointer 

24C2 


lea -5C(a1),a1 

UB 92 veraindern 

24C6 


aove.l a1,84<a6) 

und als Debug-Basis speichern 

24CA 


lea $C(a1),a1 

alten Wert wiederherstellen 

24 CE 


adda.v /$C,a0 

a0 -> Systeastack über Rückkehradr. 

24D2 


Bove.l a0,d1 

dl :• a0 

24D4 


aove.l a0,d0 

d0 :• a0 

24D6 


sub.l a7,d0 

dB :* dB - Systea-Stackpolnter 

24D8 


bra.s FC24DC 

—> 

24DA 




24DA 

FC24DA 

Bove.b -(a0),-(a1) 

Debug-Stack in User-Stack kopieren 

24DC 

FC24DC 

dbra d0.FC24DA 


24E0 


Bovea.l d1,a7 

SSP -> Systeastack Uber Rückkehradr 

24E2 


Bove a1,usp 

USP viederherstellen 

24E4 


Bovea.l 84(a6),a0 

aB :> Debug-Datenbasis 

24E8 


Bove 4(a0),sr 

Statusregister viederherstellen 

24EC 

FC24EC 

bsr FC2A72 

—> Neue Zelle 

24F0 


rts 


24F2 




24F2 

-- 

Text Im Puffer alt Namen in 

Tabelle vergleichen 

24F2 




24F2 


Bovea.l 4(a7),a0-a1 

a0 -> Tabelle, a1 -> Koamandoname 

24F8 

FC24F8 

Boveq /FF,d0 

dB als Zahler initialisieren 

24FA 

FC24FA 

Bove.b (a0)+,dl 

dl Zeichen aus Tabelle 

24FC 


beq.s FC2508 

Ende des Namens: -> 

24FE 


cmp.b (al)+,d1 

mit Zeichen in Puffer vergleichen 
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2S00 

dbne 

d0,FC24FA 

bis Ungleichheit auftritt: -> 

2504 

neg.l 

d0 

Zdhlervert negieren 

2506 

bra.s 

FC250E 

—> 

2508 




2508 FC2508 

cnp.b 

(a1)+,d1 

KoBBandonane auch zu Ende? 

250A 

bne.s 

FC250E 

nein: zurück Bit d0 <> 0 

250C 

■oveq 

/0,d0 

Flag für ÜbereinstlBBung 

250E FC250E 

rts 



2510 




2510 :- 

Taste RETURN ohne Eingabe 


2510 




2510 FC2510 

aove. b 

/1,1E(a6) 

Ausgabeflag setzen 

2516 

rts 



2518 




2518 ;- 




2518 




2518 

■ove.1 

8(a6),d0 

Routine wird nicht gerufen 

251C 

Bove.l 

d0,-<a7) 


251E 

addq.l 

/4.a7 


2520 

rts 



2522 




2522 :- 

Taste 

>’ oder SPACE: Ein Wort vor 

2522 




2522 FC2522 

addq.l 

/2,C(a6) 

Aktuelle Adresse ub 2 erhöhen 

2526 

■ove.b 

/1,1E(a6) 

Ausgabeflag setzen 

252C 

btst.b 

/1,1F(a6) 

AnderungsBodus aktiv? 

2532 

beq.s 

FC2540 

nein: -> 

2534 

bsr 

FC2A72 

—> Neue Zeile 

2538 

bsr 

FC261A 

—> Adresse und Wort ausgeben 

253C 

clr.b 

1E(a6) 

Ausgabeflag loschen 

2540 FC2540 

rts 



2542 




2542 :- 

Taste 

<’ oder BACKSPACE: Ein Wort zurück 

2542 




2542 FC2542 

subq.l 

/2.C(a6) 

Aktuelle Adresse ub 2 verBlndern 

2546 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

254C 

btst.b 

/1.1F(a6) 

AnderungSBodus aktiv? 

2552 

beq.s 

FC2560 

nein: -> 

2554 

bsr 

FC2A72 

—> Neue Zeile 

2558 

bsr 

FC261A 

—> Adresse und Wort ausgeben 
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255C 

clr.b 

1E(a6) 

Ausgabeflag ISschen 

FC2$6l!l 

rts 



2^62 




2562 !- 

Taste ' 

.’: Einen Rahmen vor 


2562 




2562 FC2562 

Bove.l 

14(a6),d0 

d0 :■ Rahnengrfiee 

2566 

add.l 

d0,C(a6) 

zur aktuellen Adresse addieren 

256A 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

2570 

rts 



2572 




2572 ;- 

Taste ’ 

,’: Einen Rahnen zurück 

2572 




2572 FC2572 

Bove.l 

14(a6),d0 

d0 :• RahnengrOße 

2576 

sub.l 

d0,C(a6) 

von aktueller Adresse subtrahieren 

257A 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

2580 

rts 



2582 




2582 :- 

Taste ’ 

[’: Indirektion vor 


2582 




2582 FC2582 

Bovea. 1 

26<a6),a1 

a1 Indirektlon-Zeiger 

2586 

aovea.l 

C(a6),a0 

a0 :• aktuelle Adresse 

258A 

move.l 

a0,(a1)+ 

in Indirektion-Stack schreiben 

258C 

sove.l 

a1,26(a6) 

Indirektlon-Zeiger zurückschreiben 

2590 

Boveq 

/FE,d0 

UB ggf. 8it 0 zu löschen 

2592 

and. 1 

(a0),d0 

d0 Inhalt von (a0) 

2594 

nove.l 

d0,C(a6) 

als aktuelle Adresse übernehmen 

2598 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

259E 

rts 



25A0 




25A0 ;- 

Taste ’ 

]': Indirektion zurück 

25A0 




25A0 FC25A0 

Bovea.l 

26(a6),a1 

a1 Indirektlon-Zeiger 

25A4 

nove.l 

-(a1).C(a6) 

alte aktuelle Adresse viederherst 

25A8 

nove.b 

/1,1E(a6) 

Ausgabeflag setzen 

25AE 

nove.l 

a1,26(a6) 

Indirektlon-Zeiger zurückschreiben 

2582 

rts 



2584 




2584 :- 

Taste ’ 

+’: n 8ytes vor 


2584 




2584 FC2584 

ooveq 

/•+’.d0 
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25B6 

bsr 

FC222E 

—> RavPutChar 

2$BA 

bsr 

FC2BF0 

—> Zahl n übernehmen 

25BE 

tst.l 

d0 

Leere Eingabe? 

25C0 

beq 

FC2A72 

Ja: Neue Zelle -> 

25C4 

■ove.l 

8(a6),d0 

d0 :• n 

2$C8 

add.l 

d0,C(a6) 

zur aktuellen Adresse addieren 

25CC 

■ove.b 

/1,1E(a6) 

Ausgabeflag setzen 

25D2 

rts 



25D4 




25D4 :- 

Taste ’ 

n Bytes zurück 


25D4 




25D4 FC25D4 

Boveq 

/•-’.d0 


2SD6 

bsr 

FC222E 

—> RavPutChar 

25DA 

bsr 

FC2BF0 

—> Zahl n übernehmen 

25DE 

tst.l 

d0 

Leere Eingabe? 

25E0 

beq 

FC2A72 

ja: Neue Zelle -> 

25E4 

Bove.l 

8(a6),d0 

d0 :• n 

2$E8 

sub.l 

d0.C(a6) 

von aktueller Adresse subtrahieren 

2$EC 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

25F2 

rts 



25F4 




25F4 :- 

Aktuelle Adresse setzen (nicht gerufen) 

25F4 




25F4 

Bove.1 

B(a6),C(a6) 

Aktuelle Adresse :• Eingabe 

2$FA 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

2600 

rts 



2602 




2602 ;. 

Taste 

:’; RahBengrfise festlegen 

2602 




2602 FC2602 

BOveq 

/’:’,d0 


2604 

bsr 

FC222E 

—> RavPutChar 

2608 

bsr 

FC2BF0 

—> Rahmengrüee übernehBen 

260C 

Bove.l 

8(a6),14(a6) 

Rahmengrfiee :• Eingabe 

2612 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

2618 

rts 



261A 




261A !- 

Adresse, Hort und ausgeben 

261A 




261A FC261A 

Bove.l 

C(a6),d0 

j d0 ■.= Aktuelle Adresse 

261E 

bsr 

FC2780 

. —> 6-stellig ausgeben 
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2622 

tst.l 

14(a6) 

Rahaengröße 

2626 

beq.s 

FC2638 

- 0: -> 

2628 

Bovea. 1 

d0,a0 

a0 d0 - aktuelle Adresse 

262A 

Dove.v 

(a0),d0 

d0 :■ Hort an dieser Adresse 

262C 

bsr 

FC2788 

—> 4-stelllg ausgeben 

2630 

aoveq 

/’-■ .d0 


2632 

bsr 

FC222E 

—> RavPutChar 

2636 

bra.s 

FC2640 

—> 

2638 




2638 FC2638 

lea 

2E(pc),a0 

a0 FC2668 (Text ’xxxx -■) 

263C 

bsr 

FC2278 

—> Putstring 

2640 FC2640 

rts 



2642 




2642 i- 

Taste ' 

Hort Im Speicher 

andern 

2642 




2642 FC2642 

bsr.s 

FC261A 

—> Adresse und Hort ausgeben 

2644 

bsr 

FC2BF0 

—> Änderungswort übernehmen 

2648 

tst.l 

d0 

Leere Eingabe? 

264A 

beq.s 

FC2658 

ja: -> 

264C 

Bovea.l 

C(a6),a0 

a0 :■ aktuelle Adresse 

2650 

Bove.l 

8(a6),d0 

d0 :* eingegebenes Hort 

2654 

Bove.v 

d0,(a0) 

Hort an Adresse a0 abspeichern 

2656 

noveq 

^1,d0 

d0 :• 1 

2658 FC2658 

btst.b 

/1.1F(a6) 

Änderungsaodus aktiv? 

265E 

bne.s 

FC2666 

ja: -> 

2660 

aove.b 

/I.1E(a6) 

Ausgabeflag setzen 

2666 FC2666 

rts 



2668 




2668 :- 




2668 




2668 FC2668 

DC.B 

’xxxx ,0.0 


2670 




2670 . 

alter: 

Änderungsaodus aktivieren 

2670 




2670 FC2670 

bset.b 

/1.1F(a6) 

Änderungsflag setzen 

2676 FC2676 

bsr 

FC2A72 

—> Neue Zelle 

267A 

bsr.s 

FC2642 

—> Änderungsroutine 

267C 

tst.l 

d0 

Abbruchkoaaando? 

267E 

beq.s 

FC2686 

ja: -> 

2680 

addq. 1 

/2,C(a6) 

Aktuelle Adresse ua 2 erhöhen 
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2684 


bra.s FC2676 

—> Loop 

2686 




2686 

FC2686 

bclr.b /1,1F(a6) 

Anderungsflag loschen 

268C 


bsr FC2A72 

—> Neue Zelle 

2690 


rts 


2692 




2692 

f 

Ausgang bei unbekanntea Koaiando (nicht gerufen) 

2692 




2692 


lea 8(pc),a0 

a0 :* FC269C (Text 'not yet lapl 

2696 


bsr FC2278 

—> Putstring 

269A 


rts 


269C 




269C FC269C 

0C.8 0A,’not yet lapleaented’,0A,0 

2682 




2682 

-- 

llst: Systea List ausgeben 


2682 




2682 

FC2682 

aove.l a2,-(a7) 

a2 auf Stack retten 

2684 


aovea.l C(a6),a2 

a2 :■ aktuelle Adresse 

2688 


tst.l 4(a2) 

Nächstes Langvort > 0? 

268C 


bne.s FC26C0 

nein: kein List Header -> 

268E 


aovea.l (a2),a2 

a2 -> 1. Node 

26C0 

FC26C0 

aove.l (a2),d0 

d0 :• ln_Succ 

26C2 


beq.s FC26F4 

Ende der Liste: -> 

26C4 


aove.l A(a2),d0 

d0 -> Naaensstrlng 

26C8 


bne.s FC26O0 

Naae vorhanden: -> 

26CA 


aove.l /FC271E,d0 

d0 -> Endeaarke 0 

26D0 

FC26O0 

aove.l d0,-(a7) 

d0 auf Stack 

26D2 


aoveq /0,d0 

d0 :- 0 

2604 


aove.b 9(a2),d0 

d0 :• Priorität 

2608 


aove.l d0,-(a7) 

d0 auf Stack 

260A 


aove.b 8(a2),d0 

d0 :• Typ 

260E 


aove.l d0,-(a7) 

d0 auf Stack 

26E0 


pea (a2) 

Node-Adresse auf Stack 

26E2 


aovea.l a7,a1 

a1 -> Ausgabedaten la Stack 

26E4 


lea 16(pc),a0 

a0 :“ FC26FC (Foraatstrlng) 

26E8 


bsr FC2202 

—> Oaten foraatlert ausgeben 

26EC 


lea 14(a7),a7 

Stack wieder ausräuaen 

26F0 


aovea.l (a2),a2 

a2 -> nächster Node 

26F2 


bra.s FC26C0 

—> Loop 


26F4 
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26F4 FC26F4 

bsr 

FC2A72 

—> Neue Zelle 

26F8 

Bovea. 1 

(a7)+.a2 

a2 wiederherstellen 

26FA 

rts 



26FC 




26FC FC26FC 

DC.B 

0A/JC061X type f-21i prl !t-41d "Jts”’ 

271E 




271E FC271E 

DC.U 

0 


2720 




2720 :- 

Einen Rahmen ausgeben 


2720 




2720 FC2720 

Bovea. 1 

d0/d2-d5/a2-a5,-(a7) ; Register retten 

2724 

link 

a5./-28 

40 Bytes Puffer Im Stack einrichten 

2728 

bsr 

FC2A72 

—> Neue Zelle 

272C 

Bovea. 1 

d0,a2 

a2 := d0 • aktuelle Adresse 

272E 

Bove. 1 

dl .d2 

d2 :• dl • Rahmengröße 

2750 

beq.s 

FC2770 

Rahmengröße ■= 0: fertig -> 

2752 FC2752 

Bove.l 

a2,d0 

d0 :<■ a2 = aktuelle Adresse 

2754 

bsr.s 

FC2780 

—> 6-stelllg ausgeben 

2756 

Doveq 

/7,d5 

Zahler für 8 Horte setzen 

2758 

lea 

-20(a5).a5 

a5 -> Zeichenpuffer 

275C FC275C 

Dove.v 

(a2)+.d0 

d0 := nächstes Hort 

275E 

bsr.s 

FC2788 

—> 4-stelllg ausgeben 

2740 

nove.l 

d0,-(a7) 

d0 auf Stack retten 

2742 

Isr.w 

/8,d0 

oberes Byte in Byte-Position 

2744 

bsr 

FC2ABC 

—> Zeichen generieren 

2748 

ffiove.v 

d0.(a5)+ 

und ln Puffer setzen 

274A 

Bove.l 

(a7)+.d0 

d0 wiederherstellen 

274C 

bsr 

FC2ABC 

—> Zeichen generieren 

2750 

ffiove.v 

d0,(a5)+ 

und ln Puffer setzen 

2752 

subq.l 

/2,d2 

Rahmengröße um Hortlänge vermindern 

2754 

ble.s 

FC2766 

Rahnen fertig: -> 

2756 

dbra 

d5.FC275C 

nächstes Hort, maximal 8 pro Zelle -> 

275A 

clr.w 

(a5) + 

Puffer mit Kode 0 abschließen 

275C 

lea 

-20(a5),a0 

a0 -> Zeichenpuffer 

2760 

bsr 

FC2A86 

-> Putstring, Neue Zelle 

2764 

bra.s 

FC2752 

—> Loop 

2766 




2766 FC2766 

clr.w 

(a5) + 

Zeichenpuffer abschließen 

2768 

lea 

-20(a5),a0 

a0 -> Zeichenpuffer 

276C 

bsr 

FC2A86 

-> Putstring, Neue Zelle 
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2770 

FC2770 

unlk 

a5 

Zeichenpuffer auflasen 

2772 


novem.l 

(a7)+,d0/d2-dj/a2-a3 ; Register wiederherstellen 

2776 

2778 

2778 


rts 



• 



2778 





2778 

FC2778 

■ovein.l 

d0-d1/a0-a1.-(a7) 

Register retten 

277C 


Boveq 

«.dl 

dl Stellenzahl 

277E 


bra.s 

FC278E 

—> 

2780 





2780 

FC2780 

■oven. 1 

d0-d1/a0-a1.-(a7) 

Register retten 

2784 


Doveq 

«,d1 

dl Stellenzahl 

2786 


bra.s 

FC278E 

—> 

2788 





2788 

FC2788 

aoven.l 

d0-d1/a0-a1.-(a7) 

Register retten 

278C 


BOveq 

/4,d1 

dl :■= Stellenzahl 

278E 

FC278E 

bsr 

FC2294 

—> PutHex 

2792 


novem.l 

(a7)+.d0-d1/a0-a1 

Register wiederherstellen 

2796 

2798 

2798 


rts 


•, Stackrahnen ausgeben 

> 


2798 





2798 

FC2798 

novem.l 

d2/a2.-(a7) 

Register retten 

279C 


novea. 1 

a0,a2 

a2 :■= a0 -> Register ln Debug-Stack 

279E 


BOveq 

/7.d2 

Zahler für 8 Register 

27A0 


lea 

C2(pc),a0 

a0 :* FC2864 (Text ’DR:’) 

27A4 


bsr.s 

FC27D8 

—> Text und Datenregister ausgeben 

27A6 


BOveq 

/6,d2 

Zähler für 7 Register 

27A8 


lea 

C0(pc),a0 

a0 := FC286A (Text ’AR:’) 

27AC 


bsr.s 

FC27D8 

—> Text und 7 Adreßregister ausgeben 

27AE 


addq. 1 

/4.a2 

a2 auf Systen-Stack verrücken 

27B0 


btst.b 

/5.(a2) 

War Supervisor-Bit gesetzt? 

27B4 


bne.s 

FC27BC 

Ja: -> 

27B6 


suba.v 

/50.a2 

a2 -> USP ln Debug-Stackberelch 

27BA 


novea.1 

(a2),a2 

a2 usp 

27BC 

FC27BC 

lea 

B2(pc),a0 

a0 :• FC2870 (Text ’SF:’) 

27C0 


bsr 

FC2278 

—> Putstring 

27C4 


ZDOveq 

/E,d2 

Zähler für 15 Horte ln Stack 

27C6 

FC27C6 

Bove.v 

(a2)+,d0 

d0 := nächstes Hort ln Stack 

27C8 


bsr.s 

FC2788 

—> 4-stelllg ausgeben 
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27CA 

dbra 

d2.FC27C6 

bis 15 Horte ausgegeben: -> 

27CE 

bsr 

FC2A72 

—> Neue Zelle 

27D2 

novea.l 

(a7)+,d2/a2 

Register wiederherstellen 

27D6 

rts 



27D8 




27D8 FC27D8 

bsr 

FC2278 

—> Putstring 

27DC FC27DC 

■ove. 1 

(a2)+.d0 

d0 :• Reglsterlnhalt 

'27DE 

bsr.s 

FC2778 

—> 8-stelllg ausgeben 

27E0 

dbra 

d2.FC27DC 

bis alle Register ausgegeben: - 

27E4 

rts 



27E6 




27E6 :- 

regs: Register-Ausgabe 


27E6 




27E6 FC27E6 

Bovea.l 

84(a6),a1 

a1 -> Debug-Datenbasls 

27EA FC27EA 

■ove. 1 

a1.-(a7) 

a1 auf Stack retten 

27EC 

lea 

E(pc),a0 

a0 :• FC27FC (Foraatstrlng) 

27F0 

bsr 

FC22D2 

—> Daten foraatlert ausgeben 

27F4 

■ovea.l 

(a7)+.a1 

a1 vlederherstellen 

27F6 

lea 

16(a1),a0 

a0 -> Reglsterllste la Stack 

27FA 

bra.s 

FC2798 

—> zur Ausgabe 

27FC 




27FC i- 

Foraatstrlngs für Rahaenausgabe 

27FC 




27FC FC27FC 

DC.B 

0A/PC: )(061x SR: )t04x USP: W61x’ 

281C 

DC.B 

• SSP: )t061x XCPT 

)t041x TASK: )t061x’.0 

281C 




2843 

DC.B 

0A,’PC: )t061x SR: )(04x USP: )C061x’.0’ 

2843 




2864 FC2864 

DC.B 

0A,’DR: '.0 


286A 




286A FC286A 

DC.B 

0A.’AR: ',0 


2870 




2870 FC2070 

DC.B 

0A,’SF: ’,0 


2876 




2876 ;- 

d2.v ab 

Adresse d0 d1+1 aal abspeichern (nicht gerufen) 

2876 




2876 

■ove.l 

a2.-(a7) 

a2 retten 

2878 

aovea. 1 

d0,a2 

a2 := d0 - Anfangsadresse 

287A 

bra.s 

FC287E 

—> 

287C 
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287C FC287C 

■ove.v 

d2,(a2)+ 

d2 speichern 

287E FC287E 

dbra 

d1.FC287C 

dl aal wiederholen 

2882 

■ovea.l 

{a7)+.a2 

a2 wiederherstellen 

2884 

rts 



2886 




2886 ;- 

Breakpoint ln Tabelle suchen 

2886 




2886 FC2886 

bsr 

FC2A72 

—> Neue Zelle 

288A 

lea 

8A(a6),a8 

a0 -> Breakpoint-Tabelle 

288E 

Boveq 

/F,d1 

dl :* Zähler für 16 Breakpoints 

2898 FC2898 

capa. 1 

(a8),a1 

a1 * Breakpoint-Adresse? 

2892 

beq.s 

FC289E 

Ja: -> 

2894 

addq.l 

/6,a8 

a0 auf nächsten Tabelleneintrag setzen 

2896 

dbra 

dl.FC2890 

und weltersuchen bis Tabellenende -> 

289A 

BOveq 

/0,d0 

d0 := 0: Flag 'nicht gefunden’ 

289C 

rts 



289E 




289E FC289E 

Bove. 1 

a0.d0 

d0 a0 -> Breakpoint in Tabelle 

28A8 

rts 



28A2 




28A2 :. 

clear: 

Breakpoint an aktueller Adresse entfernen 

28A2 




28A2 FC28A2 

■ovea.l 

C(a6),a1 

a1 aktuelle Adresse 

28A6 

bsr.s 

FC2886 

—> Breakpoint ln Tabelle suchen 

28A8 

beq.s 

FC28B0 

nicht gefunden; -> 

28AA 

clr.l 

(80) 

Adresse in Tabelle löschen 

28AC 

Bove.v 

4(a0).(a1) 

alten Opcode wiederherstellen 

28B0 FC28B8 

rts 



28B2 




2882 i- 

reset: 

Alle Breakpoints entfernen 

28B2 




2862 FC28B2 

lea 

8A(a6),a1 

a1 -> Breakpoint-Tabelle 

28B6 

Boveq 

/F.dl 

dl :• Zähler für 16 Breakpoints 

28B8 FC28B8 

■ove.l 

(a1),d0 

d0 := Breakpoint-Adresse aus Tabelle 

28BA 

beq.s 

FC28C4 

Kein Eintrag: -> 

28BC 

Bovea. 1 

d0,a0 

a0 :> d0 • Breakpoint-Adresse 

28BE 

clr.l 

(a1) 

Adresse ln Tabelle löschen 

28C8 

Bove.v 

4(a1).(a0) 

alten Opcode wiederherstellen 

28C4 FC28C4 

addq.l 

/6,a1 

Tabellenzeiger vorrücken 

28C6 

dbra 

d1,FC2eB8 

wiederholen bis Tabellenende -> 
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28CA 

bsr 

FC2A72 

—> Neue Zelle 

28CE 

rts 



28D0 




2800 :- 

set; Breakpoint an aktueller Adresse setzen 

28D0 




28D0 FC28D0 

■ovea.l 

C(a6),a1 

a1 aktuelle Adresse 

28D4 

bsr.s 

FC2886 

—> ln Breakpoint-Tabelle suchen 

2806 

bne.s 

FC28FC 

Breakpoint bereits gesetzt: -> 

2808 

lea 

8A(a6),a0 

a0 -> Breakpoint-Tabelle 

28DC 

■oveq 

/F,d1 

dl :• Zähler für 16 Einträge 

280E FC280E 

tst.l 

(a0) 

Tabelleneintrag belegt? 

28E0 

beq.s 

FC28F2 

nein: -> 

28E2 

addq. 1 

/6,a0 

Zeiger auf nächsten Eintrag setzen 

28E4 

dbra 

d1,FC280E 

wiederholen bis Tabellenende -> 

28E8 

lea 

14(pc),a0 

a0 :- FC28FE (Text ’too aany’) 

28EC 

bsr 

FC2278 

—> Putstring 

28F0 

bra.s 

FC28FC 

—> 

28F2 




28F2 FC28F2 

Bove.v 

(a1).4(a0) 

Opcode ln Tabelle schreiben 

28F6 

■ove.v 

88(a6),(a1) 

und durch 'TRAP /15’ ersetzen 

28FA 

■ove. 1 

a1,(a0) 

Adresse ln Tabelle schreiben 

28FC FC28FC 

rts 



28FE 




28FE FC28FE 

OC.B 

0A,’too nany*,0A,0,0 

290A 




290A :- 

Show: Alle Breakpoint-Adressen ausgeben 

290A 




290A FC290A 

lea 

8A(a6),a0 

a0 -> Breakpoint-Tabelle 

290E 

Boveq 

/F,d1 

dl :- Zähler für 16 Einträge 

2910 FC2910 

nove.l 

(a0),d0 

d0 :• Breakpoint-Adresse 

2912 

beq.s 

FC291C 

nicht belegt; -> 

2914 

bsr 

FC2A72 

—> Neue Zelle 

2918 

bsr 

FC2780 

—> Adresse 6-stelllg ausgeben 

291C FC291C 

addq.l 

/6,a0 

Zeiger auf nächsten Eintrag setzen 

291E 

dbra 

d1.FC2910 

wiederholen bis Tabellenende -> 

2922 

bsr 

FC2A72 

—> Neue Zelle 

2926 

rts 



2928 




2928 

rts 



292A 
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292A :- 

Harten 

auf Tasteneingabe a: 

292A 



292A FC292A 

bsr 

FC2222 

292E 

aove.l 

d0,-(a7) 

297B 

bsr 

FC222E 

2954 

aove.l 

(a7)+,d0 

2956 

rts 


2958 



2958 :- 

Taste ’ 

!’: Register ändern 

2958 



2958 FC2958 

aovea.l 

d2/a2,-(a7) 

295C 

loveq 

/M’,d0 

295E 

bsr 

FC222E 

2942 

bsr.s 

FC292A 

2944 

bsr 

FC2D48 

2948 

aovea.l 

00 

294C 

lea 

16(a1),a0 

2950 

■oveq 

/7,d2 

2952 

capi.b 

/’D’.dB 

2956 

beq.s 

FC2970 

2958 

lea 

20(a0),aB 

295C 

■oveq 

/6,d2 

295E 

capi.b 

/’A’,d0 

2962 

beq.s 

FC2970 

2964 

lea 

6(a1),a2 

2968 

capi.b 

/’U’.dB 

296C 

beq.s 

FC298C 

296E 

bra.s 

FC29A8 

2970 



2970 FC2970 

bsr.s 

FC292A 

2972 

capl.v 

/8,d0 

2976 

beq.s 

FC29A8 

2978 

bsr 

FC2AAC 

297C 

bne.s 

FC29A8 

297E 

subl.v 

/5B,d0 

2982 

cap.b 

d0,d2 

2984 

blt.s 

FC29A8 

2986 

Isl.v 

/2,d0 

2988 

lea 

B(aB,d0.v),a2 

298C FC298C 

aove.l 

(a2),dB 


Echo 

—> Harten auf Tasteneingabe 
Zeichen auf Stack retten 
—> RavPutChar 
Zeichen viederherstellen 


Register retten 
—> RavPutChar 

—> Harten auf Eingabe ult Echo 
—> Kleln-Groebuchstaben-Handlung 
a1 Debug-Datenbasis 

aü -> Datenregisterliste 
d2 ;• Zähler für 8 Datenregister 
Datenregister zu ändern? 

Ja: -> 

a0 -> Adresreglsterllste 
d2 Zähler für 7 Adrepreglster 

Adreßregister zu ändern? 
ja: -> 

a2 -> DSP ia Debug-Stackberelch 
User-Stackpointer zu ändern? 

Ja: -> 

-> 

—> Harten auf Eingabe alt Echo 
BACKSPACE eingegeben? 

Ja: -> 

—> Prüfen ob Ziffer 
nein: -> 

dB :> Hert der eingegebenen Ziffer 
Registernunaer ia zulässigen Bereich? 
nein: -> 

aal 4 ergibt Offset in Registerliste 
a2 -> Register ln der Liste 
dB :• Inhalt des Registers 
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298E 

bsr 

FC2A62 

—> PutSpace 

2992 

bsr 

FC2778 

—> Registerinhalt 8-stelllg ausgeben 

2996 

■oveq 

/•-•,d0 


2998 

bsr 

FC222E 

—> RawPutChar 

299C 

bsr 

FC28F0 

—> Zahleneingabe übernehaen 

29A0 

tst.b 

d0 

Leere Eingabe? 

29A2 

beq.s 

FC29A8 

Ja: -> 

29A4 

■ove. 1 

8(a6),(a2) 

Eingabe in Registerliste eintragen 

29A8 FC29A8 

bsr 

FC2A72 

—> Neue Zelle 

29AC 

movea. 1 

(a7)+.d2/a2 

Register wiederherstellen 


2980 rts 

2982 

2982 i-Taste oder LIMIT: Grenze für FIND und FILL festlegen 

2982 


2982 FC29B2 

Bove. 1 

C(a6),18(a6) 

Eingabe als Llalt eintragen 

2988 

Bove.b 

/I.1E<a6) 

Ausgabeflag setzen 

298E 

rts 



29C0 




29C0 ;- 

find: KodeBuster suchen 


29C0 




29C0 FC29C0 

Bovea. 1 

a2-a5,-(a7) 

Register retten 

29C4 

bsr.s 

FC2A04 

—> Muster Ubernehaen 

29C6 

beq.s 

FC29D4 

Leere Eingabe: -> 

29C8 

bsr.s 

FC29E0 

—> Muster suchen 

29CA 

beq.s 

FC29D4 


29CC 

bclr. 1 

/0,d0 


29D0 

Bove.l 

d0.C(a6) 


29D4 FC29D4 

Bove.b 

/ME(a6) 

Ausgabeflag setzen 

29DA 

Bovea. 1 

(a7)+,a2-a5 

Register viederherstellen 

29DE 

rts 



29E0 




29E0 FC29E0 

Bove. 1 

a4.-(a7) 

a4 auf Stack retten 

29E2 

lea 

-2(a0).a4 

a4 :■ aktuelle Adresse-2 

29E6 FC29E6 

Bove. 1 

d0.d1 

d1 :- d0 • Anzahl der Bytes ia Muster 

29E8 

Bovea. 1 

a9,a1 

a1 a3 -> Anfang des Musters 

29EA 

addq.l 

/I ,a4 

Suchzeiger Inkreaentieren 

29EC 

Bovea.l 

a4,a0 

a0 :• a4 • Suchzeiger 

29EE FC29EE 

capa.l 

a0,a2 

Suchzeiger < Llalt? 

29F0 

ble.s 

FC29FE 

nein: -> 

29F2 

capB.b 

(a1)+,(a0)+ 

Byte aus Muster • Byte ia Speicher? 
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29F4 

bne.s 

FC29E6 

nein: -> 

29F6 

subq.v 

/1,d1 

Bytezahler dekreaentieren 

29F8 

bgt.s 

FC29EE 

noch nicht Null: -> 

29FA 

■ove. 1 

a4,d0 

d0 ;• aktueller Suchzeiger 

29FC 

bra.s 

FC2A00 

—> 

29FE 




29FE FC29FE 

■oveq 

/0,d0 

dB 0 heißt: nicht gefunden 

2A00 FC2A00 

■ovea.l 

(a7)+.a4 

a4 viederherstellen 

2A02 

rts 



2A04 




2A04 FC2A04 

lea 

26(pc),a0 

a0 :- FC2A2A (Text ’pattern?’) 

2A08 

bsr 

FC2278 

—> Putstring 

2A0C 

bsr 

FC2BF0 

—> Kode-Eingabe 

2A10 

tst.w 

d0 

Leere Eingabe? 

2A12 

beq.s 

FC2A2A 

Ja: -> 

2A14 

addq.v 

/1,d0 

Stellenzahl ua 1 vergrößern 

2A16 

Isr.w 

/1,d0 

und halbieren ergibt Zahl der Bytes 

2A18 

■oveq 

/4.d1 

Zahl steht la Speicher rechtsbündig, 

2A1A 

sub.v 

d0,d1 

daher Bytezahl von 4 subtrahieren 

2A1C 

lea 

8(a6,d1.v),a3 

a3 -> Anfang des Kodeausters 

2A20 

■ovea.l 

C(a6),a0 

a0 :> aktuelle Adresse 

2A24 

■ovea.l 

18(a6),a2 

a2 :> Liait 

2A28 

■oveq 

/1,d1 

bewirkt ZF :» 0 

2A2A FC2A2A 

rts 



2A2C 




2A2C 

DC.B 

’ pattem? ’,0,0 


2A98 




2A58 :- 

fill: Speicherbereich Bit Kodeauster fallen 

2A58 




2A38 FC2A;8 

■ovea.l 

a2-a3,-(a7) 

Register retten 

2a;c 

bsr.s 

FC2A04 

—> Muster Ubernehaen 

2A3E 

beq.s 

FC2A42 

Leere Eingabe: -> 

2A40 

bsr.s 

FC2A4E 

—> Muster ln Speicher schreiben 

2A42 FC2A42 

Bove.b 

/1,1E(a6) 

Ausgabeflag setzen 

2A48 

Bovea.l 

(a7)+,a2-a3 

Register wiederherstellen 

2A4C 

rts 



2A4E 




2A4E FC2A4E 

subq.l 

/I ,d0 

Stellenzahl ua 1 veraindern 

2A90 FC2A90 

Bove.l 

d0,d1 

dl :» Zähler 

2A92 

Bovea.l 

a3,a1 

a1 := aj -> Anfang des Musters 
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2A54 FC2A54 

cmpa.l a0,a2 

Aktuelle Adresse < Lialt? 

2A56 

ble.s FC2A60 

nein: fertig -> 

2A5e 

Bove.b (a1)+,(a0)+ 

Byte aus Muster übertragen 

2A5A 

dbra d1,FC2A54 

wiederholen bis Muster fertig -> 

2A5E 

bra.s FC2A50 

—> Loop 

2A60 



2A60 FC2A60 

rts 


2A62 



2A62 ;- 

SPACE ausgeben 


2A62 



2A62 FC2A62 

«oven.l d0-d1/a0-a1,-(a7) 

Register retten 

2A66 

■oveq /’ ’,d0 


2A68 

bsr FC222E 

—> RauPutChar 

2A6C 

Boven.l (a7)+,d0-d1/a0-al 

Register wiederherstellen 

2A70 

rts 


2A72 



2A72 :- 

Neue Zeile 


2A72 



2A72 FC2A72 

BoveB.l d0-d1/a0-a1,-(a7) 

Register retten 

2A76 

lea C(pc),a0 

a0 FC2A84 (Line Feed Kode) 

2A7A 

bsr FC2278 

—> RawPutChar 

2A7E 

Boven.l (a7)+,d0-d1/a0-a1 

Register wiederherstellen 

2A82 

rts 


2A84 



2A84 FC2A84 

DC.B 0A,0 

LineFeed Kode 

2A86 



2A86 ;- 

String ausgeben, neue Zeile 


2A86 



2A86 FC2A86 

Bovem.l d0-d1/a0-a1,-(a7) 

Register retten 

2A8A 

bsr FC2278 

—> Putstring 

2A8E 

bsr.s FC2A72 

—> Neue Zeile 

2A90 

Bovem.l (a7)+,d0-d1/a0-a1 

Register wiederherstellen 

2A94 

rts 


2A96 



2A96 ;. 



2A96 



2A96 

Boveq /D,d0 


2A98 

rts 


2A9A 



2A9A :- 

ZelcheneBpfang (nicht gerufen) 
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2A9A 





2A9A 

Boven.l 

d0-d1/a0-a1.-(a7) 


Register retten 

2A9E 

bsr 

FC2202 


—> RawMayGetChar 

2AA2 

cnpl.v 

/-I.d0 


Kein Zeichen empfangen? 

2AA6 

■oven.1 

(a7)+,d0-d1/a0-a1 


Register wiederherstellen 

2AAA 

rts 




2AAC 





2AAC ;- 

ChkNum: 

Prüfen, ob Ziffer 

li 

d0 

2AAC 





2AAC FC2AAC 

copi .b 

/■0’,d0 


d0 < '0’? 

2AB(I 

blt.s 

FC2ABA 


Ja: -> 

2AB2 

capl .b 

/•9’.d0 


d0 > ’9’? 

2AB6 

bgt.s 

FC2ABA 


Ja: -> 

2AB8 

cnp.b 

d0,d0 


ergibt ZF = 1 

2ABA FC2ABA 

rts 




2ABC 





2ABC ;- 

Zeichen 

aus Kode erzeugen 

für Rahmenausgabe 

2ABC 





2ABC FC2ABC 

Bove.l 

d2.-(a7) 


d2 auf Stack retten 

2ABE 

Bove.v 

/•..•,d2 


d2 für nicht druckbare Kodes belegen 

2AC2 

tst.b 

d0 


d0 > Zeichenkode 

2AC4 

beq.s 

FC2AE2 


= 0: nicht druckbar -> 

2AC6 

btst.l 

/7,d0 


Bit 7 gesetzt? 

2ACA 

bne.s 

FC2AE2 


Ja: nicht druckbar -> 

2ACC 

BOve.v 

/2000,d2 


Erstes Zeichen Leerstelle 

2AD0 

■ove.b 

d0.d1 


dl :» d0 =■ Zeichenkode 

2AD2 

andi.b 

/E0,d1 


Kode < $20? 

2AD6 

bne.s 

FC2AE0 


nein: druckbar -> 

2AD8 

BOve.v 

/9E00,d2 


Erstes Zeichen ’e’ für CTRL 

2ADC 

orl.b 

/40.d0 


Buchstabenkode erzeugen 

2AE0 FC2AE8 

Bove.b 

d0,d2 


Zweites Zeichen einsetzen 

2AE2 FC2AE2 

Bove.l 

d2,d0 


d0 :- Zeichen für Ausgabe 

2AE4 

Bove.l 

(a7)+.d2 


d2 wiederherstellen 

2AE6 

rts 




2AE8 





2AE8 ;- 

Kommando-Routine ausführen 


2AE8 





2AE8 FC2AE8 

clr.b 

1E(a6) 


Ausgabeflag löschen 

2AEC 

movea.l 

4(a7).a0 


a0 -> Kommandoroutine 

2AF0 

Jsr 

(a0) 


—> Routine ausführen 
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2AF2 

tst.b 

1E(a6) 

Ausgabeflag gesetzt? 

2AF6 

beq.s 

FC2B04 

nein: fertig -> 

2AF8 

■ove.l 

C(a6),d0 

d0 :• aktuelle Adresse 

2AFC 

■ove.l 

14(a6).d1 

dl :• Rahaengröpe 

2800 

bsr 

FC2720 

—> Rahaen ausgeben 

2604 FC2604 

rts 



2606 




2606 ;- 

Taste ’ 

Alle KoBnandos ausgeben 

2606 




2606 FC2606 

Bove.l 

a2.-(a7) 

a2 retten 

2608 

■ovea. 1 

/FC33A6,a2 

a2 -> Konoando-Tabelle 

260E FC2E0E 

■ove. b 

(a2)+,d0 

Zeichen aus Tabelle 

2610 

beq.s 

FC2B18 

Ende des KoaniandonaDens: -> 

2812 

bsr 

FC222E 

—> RawPutChar 

2616 

bra.s 

FC2B0E 

—> Loop 

2618 




2818 FC2818 

bsr 

FC2A62 

—> PutSpace 

261C 

tst.b 

(a2) 

Folgt weiterer Naue? 

281E 

bne.s 

FC2B0E 

Ja: -> 

2620 

bsr 

FC2A72 

—> Neue Zelle 

2624 

■ovea.l 

(a7)+,a2 

a2 viederherstellen 

2626 

rts 



2828 




2628 :- 

Tastenkode ln Tabelle suchen 

2628 




2628 FC2628 

Dove.l 

d0,d1 

dl :• d0 * Tastenkode 

2B2A 

novea. 1 

0(a6),a0 

a0 -> Tabelle 

262E 

bra.s 

FC2B3C 

—> 

2630 




2630 FC2B30 

Bove.l 

(a0),d0 

d0 :» nächster Tabelleneintrag 

2632 

andl. 1 

/FFFFFF,d0 

Bits 24 bis 31 löschen 

2638 

beq.s 

FC2B4C 

Tabellenende: -> 

2B3A 

Dovea.l 

d0,a0 

a0 -> nächster Tabelleneintrag 

2B3C FC2B3C 

cap.b 

4(a0).d1 

Tastenkode gefunden? 

2640 

beq.s 

FC2B4A 

ja: -> 

2642 

blt.s 

FC2B30 

Liegt er zwischen den ersten 

2844 

cop.b 

3(a0),d1 

und den zweiten Tabellenkode? 

2648 

bgt.s 

FC2B30 

nein: weitersuchen -> 

2B4A FC2B4A 

nove. 1 

a0,d0 

d0 -> Tabelleneintrag 

2B4C FC2B4C 

rts 
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2B4E 




2B4E 

2B4E 


Tastenkode ln Tabelle 

suchen, zugehörige Routine aufrufen 

2B4E 


aove.l 4(a7),d0 

; d0 Tastenkode 

2B52 

FC2B92 

bsr.s FC2B28 

: —> Kode ln Tabelle suchen 

2B54 


tst.l dB 

; gefunden? 

2B$6 


beq.s FC2B64 

; nein: -> 

2B58 


aovea.l dB.aB 

: a0 -> Tabelleneintrag 

2B$A 


■ove.l 6(a0),-(a7) 

; Routinenadresse auf Stack 

2B$E 


bsr FC2AE8 

; —> Routine ausführen 

2B62 


addq.l /4.a7 

; Adresse voa Stack nehsen 

2B64 FC2B64 

2B66 

rts 


2B66 

2B66 

-- 

Eingabe ln Konnandotabelle suchen 

2B66 


■ovea.l 4(a7),aB 

: a0 -> Eingabepuffer 

2B6A 

FC2B6A 

■ovei.l a2-a7,-(a7) 

: Register retten 

2B6E 


■ovea.l a0,a2 

j a2 :• a0 -> Eingabepuffer 

2B7B 


lea FC35F4.aJ 

; a3 -> Koasandotabelle 

2B76 

2B78 


bra.s FC2B7E 

. —> 

2B78 

FC2B78 

■ove.l (a;),d0 

: d0 -> nächster Tabelleneintrag 

2B7A 


beq.s FC2B8E 

: Tabellenende: -> 

2B7C 


■ovea.l d0,a7 

; aj :• d0 -> nächster Tabelleneintrag 

2B7E 

FC2B7E 

aovea.l 4(a9),a0 

; a0 -> KoBoandoname ln Naaenstabelle 

2B82 


■ovea.l a2,a1 

: a1 :” a2 -> Eingabepuffer 

2B84 


bsr FC24F8 

: —> Nanen alt Eingabe vergleichen 

2B88 


tst.l d0 

; Übereinstlaaung? 

2B8A 


bne.s FC2B78 

; nein: ueltersuchen -> 

2B8C 


■ove.l a9,d0 

; d0 :> a3 -> Tabelleneintrag 

2B8E 

2B92 

2B94 

FC2B8E 

■ovea.l (a7)+,a2-a3 

rts 

; Register vlederherstellen 

2B94 

2B94 


Koaaandosch 

1 e 1 f e 

2B94 

FC2B94 

bsr FC2222 

; —> Auf Tasteneingabe warten 

2B98 


■ove.b d0,82(a6) 

; Tastenkode abspeichern 

2B9C 


bsr.s FC2B92 

; —> Tastenkode bearbeiten 

2B9E 

2BA0 


bra.s FC2B94 

; —> Loop 
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2BA(I 

» 

Tasten 

’0’...’9’. ’a’. 

.'z*. •A’...’Z’ 

2BA0 





2BAB 

FC2BA0 

lea 

FC3334.a0 

a0 -> Editier- und Texteingabetabelle 

2BA6 


cmpa.I 

0(a6),a0 

ist dies die aktuelle Tabelle? 

2BAA 


beq.s 

FC2BBE 

Ja: -> 

2BAC 


clr.w 

1C(a6) 

Pufferzeiger 0 

2BBt) 


aove.l 

0(a6).4(a6) 

Zeiger auf Kdo-Tastentabelle auslagern 

2BB6 


Dove.l 

/FC3334,0(a6) 

Tabelle aktuell nachen 

2BBE 

FC2BBE 

capi .b 

’,82(a6) 

SPACE eingegeben? 

2BC4 


beq.s 

FC2BEA 

Ja: -> 

2BC6 


■ove.v 

1C(a6).d0 

d0 :* Pufferzelger 

2BCA 


cnpi .V 

/32,d0 

Pufferende erreicht? 

2BCE 


bge.s 

FC2BEA 

Ja: -> 

2BD() 


nove.b 

82(a6),d0 

d0 := letzter Tastenkode 

2BD4 


bsr 

FC222E 

—> RawPutChar 

2BD8 


lea 

30(a6),a0 

a0 -> Eingabepuffer 

2BDC 


Bove.v 

1C(a6),d0 

d0 :■ Pufferzelger 

2BEf) 


Bove.b 

82(a6),0(a0,d0.w) 

Tastenkode in Puffer schreiben 

2BE6 


addq.v 

/1,1C(a6) 

Pufferzelger inkrenentleren 

2BEA 

FC2BEA 

clr.w 

20(a6) 

Flag 'Puffer leer' löschen 

2BEE 

2BF(I 

2BFf) 


rts 



1 


2BF0 





2BF0 

FC2BF0 

nove.b 

/• ’.82(a6) 

Leertaste sinulieren 

2BF6 


bsr.s 

FC2BA0 

—> Tabellenzelger einrichten 

2BF8 


Bove.v 

/1,24(a6) 

Flag 'Paranetereingabe' setzen 

2BFE 

FC2BFE 

cnpl.l 

/FC3334,0(a6) 

RETURN gedrückt? 

2C06 


bne.s 

FC2C16 

Ja: -> 

2C08 


bsr 

FC2222 

—> Auf Tasteneingabe warten 

2C0C 


nove.b 

d0,82(a6) 

Tastenkode abspeichern 

2C10 


bsr 

FC2B52 

—> Routine ausführen 

2C14 


bra.s 

FC2BFE 

—> Loop 

2C16 





2C16 

FC2C16 

clr.w 

24(a6) 

Flag 'Paranetereingabe' löschen 

2C1A 


Doveq 

/0.d0 

d0 0 

2C1C 


nove.b 

22(a6),d0 

d0 :° Stellenzahl der Eingabe 

2C20 


tst.w 

20(a6) 

Flag 'Puffer leer' gesetzt? 

2C24 


beq.s 

FC2C28 

nein: -> 

2C26 


moveq 

/0.d0 

d0 := 0 für leere Eingabe 
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2C28 FC2C28 

rts 



2C2A 




2C2A :. 

Taste SPACE 


2C2A 




2C2A FC2C2A 

rts 



2C2C 




2C2C ;- 

Tasten 

CTRL-X, CTRL-U: Ganzen Eingabepuffer löschen 

2C2C 




2C2C FC2C2C 

Bove.v 

/FFFF.1C(a6) 

Pufferzeiger -1 

2C32 

■ove.l 

4(a6).0(a6) 

Tabellenzeiger racksetzen 

2C38 

bsr 

FC2A72 

—> Neue Zeile 

2C3C 

Bove.v 

/1,20(a6) 

Flag 'Puffer leer’ setzen 

2C42 

rts 



2C44 




2C44 :. 

Taste BACKSPACE 


2C44 




2C44 FC2C44 

tst.w 

1C(a6) 

Pufferzelger prüfen 

2C48 

ble.s 

FC2C2C 

nicht positiv: -> 

2C4A 

lea 

50(a6),a0 

a0 -> Eingabepuffer 

2C4E 

Bove.v 

1C(a6),d0 

d0 Pufferzelger 

2C52 

clr.b 

0(a0,d0.v) 

Endekode schreiben 

2C$6 

subq.v 

/1,1C(a6) 

Pufferzeiger dekrenentieren 

2C5A 

lea 

E(pc),a0 

a0 FC2C6A 

2C5E 

bsr 

FC2278 

—> Putstring 

2C62 

tst.w 

1C(a6) 

Pufferzeiger prüfen 

2C66 

ble.s 

FC2C2C 

nicht positiv: -> 

2C68 

rts 



2C6A 




2C6A FC2C6A 

DC.B 

8,20,8,0 


2C6E 




2C6E :- 

Taste RETURN nach Eingabe 


2C6E 




2C6E FC2C6E 

Dove.l 

4(a6),0(a6) 

0(a6) -> 1. Tastenkodetabelle 

2C74 

lea 

30(a6),a0 

a0 -> Eingabepuffer 

2C78 

Bove.v 

1C(a6),d0 

d0 :» Pufferzelger 

2C7C 

bgt.s 

FC2C88 

Puffer nicht leer: -> 

2C7E 

Bove.v 

/1,20(a6) 

Flag 'Puffer leer' setzen 

2C84 

Boveq 

/0,d0 

d0 :> 0 

2C86 

rts 



2C88 
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2C88 FC2C88 

clr.b 

0(a0,d0.v) 

Endemarke an Eingabe anfQgen 

2C8C 

lea 

90(a6),a0 

a0 -> Eingabepuffer 

2C98 

bsr 

FC2B6A 

—> Eingabe in Kommandotabelle suchen 

2C94 

tst.l 

d0 

gefunden? 

2C96 

beq.s 

FC2CB0 

nein: -> 

2C98 

move.v 

/1,20(a6) 

Flag 'Puffer leer’ setzen 

2C9E 

Bovea. 1 

d0,a0 

a0 := d0 -> Tabelleneintrag 

2CAe 

Bove.l 

A(a0),-(a7) 

Routinenadresse auf Stack 

2CA4 

bsr 

FC2AE8 

—> Kommando ausführen 

2CA8 

clr.b 

1E(a6) 

Ausgabeflag löschen 

2CAC 

addq.l 

/4,a7 

Routinenadresse vom Stack nehmen 

2CAE 

rts 



2CB0 




2CB0 FC2CB0 

lea 

90(a6),a0 

a0 -> Eingabepuffer 

2CB4 

lea 

8(a6),a1 

a1 -> Speicher für Zahleneingabe 

2CB8 

bsr 

FC2CFC 

—> Zahl aus Eingabe erzeugen 

2CBC 

Bove.b 

d0,22(a6) 

Stellenzahl abspeichern 

2CC0 

bne.s 

FC2CD2 

Nur Hex-Zlffern ln der Eingabe: -> 

2CC2 

sove.v 

/1.20(a6) 

Flag 'Puffer leer' setzen 

2CC8 

lea 

20(pc),a0 

a0 :• FC2CEA (Text 'unknoun Symbol’) 

2CCC 

bsr 

FC2278 

—> Putstring 

2CD0 

rts 



2CD2 




2CD2 FC2CD2 

tst.u 

24 (a6) 

Parameter-Eingabe? 

2CD6 

bne.s 

FC2CE8 

Ja: fertig -> 

2CD8 

noveq 

/FE,d0 

Für Hort-Ausrichtung 

2CDA 

and.l 

8(a6),d0 

d0 :- eingegebene Zahl 

2CDE 

move. 1 

d0,C(a6) 

als aktuelle Adresse speichern 

2CE2 

bset.b 

/0,1E(a6) 

Ausgabeflag löschen 

2CE8 FC2CE8 

rts 



2CEA 




2CEA FC2CEA 

DC.B 

0A,’unknovn Symbol’0A,0,0 

2CFC 




2CFC :- 

Zahl aus Eingabe generieren 


2CFC 




2CFC FC2CFC 

move. 1 

d2,-(a7) 

d2 auf Stack retten 

2CFE 

Doveq 

/0,d1 

d1 := 0 (Ergebnisregister) 

2D00 

soveq 

/FF.d2 

d2 :• -1 (Stellenzähler) 

2D02 

move.l 

dl ,d0 

d0 :- 0 (Ziffernregister) 

2D04 

bra.s 

FC2D0E 

—> 
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2D06 





2D06 FC2D06 

addq.l 

/5,d0 

Addition von 10 erzeugt Wert 


2D08 

addq.l 

/5.d0 

der Hex-Ziffern A.F 


2D0A FC2D0A 

Isl.l 

/4.d1 

Ergebnisregister aal 16 


2D0C 

add.l 

d0,d1 

+ Wert der nächsten Ziffer 


2D0E FC2D0E 

addq.l 

/1,d2 

Stellenzähler Inkreaentieren 


2D10 

■ove.b 

(a0)+.d0 

d0 :* Zeichen aus Puffer 


2D12 

beq.s 

FC203A 

Endenarke; -> 


2D14 

subi .b 

/30,d0 

d0 Ziffernwert für 0.9 


2D18 

blt.s 

FC2038 

keine Ziffer: -> 


2D1A 

cnpi.b 

/A,d0 

Wert < 10? 


2D1E 

blt.s 

FC2D0A 

Ja: ok -> 


2D20 

subi.b 

/11.d0 

d0 :» Zlffernwert-10 für A... 

pF 

2D24 

blt.s 

FC2038 

keine Hex-Zlffer: -> 


2026 

copl .b 

/6,d0 

Wert-10 < 6? 


2D2A 

blt.s 

FC2O06 

Ja: ok -> 


2D2C 

subi.b 

/20,d0 

d0 :• Zlffernwert-10 für a,.. 

,f 

2030 

blt.s 

FC2058 

keine Hex-Zlffer: -> 


2032 

cmpi .b 

/6,d0 

Wert-10 < 6? 


2036 

blt.s 

FC2O06 

Ja: ok -> 


2038 FC2038 

Boveq 

/0,d2 

d2 :=■ 0 als Fehlerflag 


203A FC203A 

Dove.l 

d1,(a1) 

Ergebnisregister abspeichern 


2D3C 

Dove.l 

d2,d0 

d0 :> Stellenzahl oder 0 


203E 

move.l 

(a7)+.d2 

d2 wiederherstellen 


2040 

rts 




2042 





2042 :- 





2042 





2042 

OC.B 

■ Xlx ’,0 



2048 





2048 . 

Kleln-Grosbuchstaben-Handlung 


2048 





2048 FC2048 

capl.b 

/•a’ ,d0 

d0 < ’a’? 


204C 

blt.s 

FC2058 

Ja: fertig -> 


204E 

cnpi.b 

/•z’ .d0 

d0 > ’z’? 


2032 

bgt.s 

FC2058 

Ja: fertig -> 


2054 

subi.b 

/20,d0 

sonst 32 subtrahieren 


2058 FC2D58 

rts 




205A 





205A 

OC.H 

0 
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2DBC 

2DBC 




» 



2DBC 




2D5C 

FC205C 

addq.v 

f\ ,22(aB) 

2D6B 


bne.s 

FC2D6A 

2D62 


move. 1 

a1,1B(aB) 

2D66 


aoveq 

/I .dB 

2D68 

FC2D68 

rts 


2D6A 




2D6A 

FC206A 

Jsr 

-16E(a6) 

2D6E 


ooveq 

/B,dB 

2D7B 

2D72 

2D72 


bra.s 

FC2068 

» 



2D72 




2D72 

FC2D72 

clr.l 

1B(aB) 

2D76 


subq.v 

/1,22(aB) 

2D7A 


bge.s 

FC2D7E 

2D7C 

FC207C 

rts 


2D7E 




2D7E 

FC207E 

move.l 

aB,-(a7) 

2D8B 


Jsr 

-174(a6) 

2D84 


movea.1 

(a7)+,a0 

2086 


move.l 

dB,1B(aB) 

2D8A 


beq.s 

FC207C 

2D8C 


movea. 1 

dB.al 

2D8E 


jsr 

-17A(a6) 

2092 

2094 

2094 


bra.s 

FC2D7C 

f 



2094 




2094 

FC2094 

lea 

1B(aB),a1 

2098 


move.l 

a1.(a1) 

2D9A 


addq.l 

/4.(a1) 

2D9C 


clr.l 

4(a1) 

20AB 


move.l 

a1,8(a1) 

2DA4 


clr.l 

28(aB) 

20A8 


clr.w 

E(aB) 

2DAC 


move.v 

/-1.2C(aB) 

2DB2 


rts 



Procure 

: siii_Bids un 1 erhöhen 
; Semaphore bereits gesetat: -> 
i nip_SlgTask -> bldllessage 
i Ergebnis TRUE 


: —> PutHsg 
; Ergebnis FALSE 
. .„> 

Vacate 

; mp_SlgTask löschen 
j sa_Blds um 1 vermindern 
; Semaphore Immer noch gesetzt: -> 

! a0 retten 
; —> GetMsg 
; aB vlederherstellen 
; mp_SlgTask -> Message 
; keine Message vorhanden: -> 

: a1 := dB -> Message 
; —> ReplyMsg 
. —> 

InltSemaphore 

; a1 -> ss_HaltQueue 
; List Header Initialisieren 


ss_0¥ner löschen 
ss_NestCount löschen 
ss_QueueCount Initialisieren 
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2D64 

2DB4 ;- 



ObtalnSenaphore 

2DB4 

2DB4 FC2DB4 

addq.b 

/1.127(a6) 

Forbld 

2DB8 

addq.v 

/1.2C(a0) 

ss_QueueCount ub 1 erhöhen 

2DBC 

bne.s 

FC2DC6 

var bereits erhöht: -> 

2DBE FC2DBE 

■ove.l 

114<a6),28(a0) 

ss_0vner :» ThlsTask 

2DC4 

bra.s 

FC2DFA 

—> 

2DC6 

2DC6 FC2DC6 

iDoven.l 

d0-d1/a0-a1.-(a7) 

Register retten 

2DCA 

aovea.l 

114(a6),a1 

a1 :» ThlsTask 

2DCE 

cnpa. 1 

28(a0),a1 

ss_Ovner * ThlsTask? 

2DD2 

beq.s 

FC2DF6 

ja: -> 

2DD4 

lea 

-C(a7),a7 

Platz für List Header 1b Stack 

2DD8 

Bove.l 

a1,8(a7) 

Blh_TallPred :- ThlsTask 

2DDC 

bclr.b 

/4.1D(a1) 

slgf_Slngle löschen 

2DE2 

lea 

10(a0),a0 

a0 -> ss_UaltQueue 

2DE6 

■ovea.l 

a7,a1 

a1 -> List Header. 

2DE8 

bsr 

FC15E8 

—> AddTall 

2DEC 

Boveq 

/10.d0 

slgf_Slngle Bit setzen 

2DEE 

jsr 

-1JE(a6) 

—> Halt 

2DF2 

lea 

C(a7),a7 

List Header vleder entfernen 

2DF6 FC2DF6 

Bovea. 1 

(a7)+.d0-d1/a0-a1 

Register vlederherstellen 

2DFA FC2DFA 

addq.v 

/1,E(a0) 

ss_NestCount ub 1 erhöhen 

2DFE 

Jsr 

-8A(a6) 

—> PerBlt 

2Eel2 

2Ee4 

2E04 :- 

rts 


ReleaseSenaphore 

2E04 

2E(I4 FC2E04 

subq.v 

t\ ,E(a0) 

ss_NestCount ub 1 erniedrigen 

2E08 

beq.s 

FC2E12 

Seaaphore frei: -> 

2E0A 

bBi .s 

FC2E50 

elnnal zu viel: Fehler -> 

2E0C 

subq.v 

/1.2C(a0) 

ss_QueueCount ub 1 erniedrigen 

2E10 

bra.s 

FC2E4E 

—> 

2E12 

2E12 FC2E12 

addq.b 

/1,127(a6) 

Forbld 

2E16 

subq.v 

/1,2C(a0) 

ss_QueueCount ub 1 erniedrigen 

2E1A 

blt.s 

FC2E46 

keine vartende Task: -> 

2E1C 

BOVeD.l 

d0-d1/a1,-(a7) 

Register retten 

2E20 

Bove.l 

a0,d1 

a0 ln d1 retten 
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2E22 

lea 

10(ael),a8 

a0 -> ss_HaitQueue 

2E26 

bsr 

FC160E 

—> ReaHead 

2E2A 

tst.l 

d0 

War Liste leer? 

2E2C 

beq.s 

FC2E50 

Ja: Fehler -> 

2E2E 

movea. 1 

d1,a0 

a0 vlederherstellen 

2E7(I 

Bovea.l 

d0,a1 

a1 -> 1. Node 

2E52 

Bovea. 1 

8(a1),a1 

a1 -> ssr_Walter 

2E36 

Bove.l 

a1.28(a0) 

ss_Owner :>= ssr_Waiter 

2e;a 

■oveq 

/10,d0 

d0 := sigf_Single 

2EJC 

Jsr 

-144(a6) 

—> Signal 

2E40 

BOVeB.1 

(a7)+.d0-d1/a1 

Register wiederherstellen 

2E44 

bra.s 

FC2E4A 

—> 

2E46 




2E46 FC2E46 

clr.l 

28(a0) 

ss_0wner löschen 

2E4A FC2E4A 

Jsr 

-8A(a6) 

—> Peralt 

2E4E FC2E4E 

rts 



2E5i9 




2E50 ;- 

Seaaphore-Verschachtelungsfehler 

2E90 




2E50 FC2E50 

BOVeB. 1 

d7/a5-a6.-(a7) 

Register retten 

2E54 

Bove. 1 

/81000008,d7 

d7 :• Alert-Kode ’AN_SemCorrupt 

2E$A 

BOvea.1 

4.a6 

ab ;• SysBase 

2E5E 

Jsr 

-6C(a6) 

—> Alert 

2E62 

BOVeB. 1 

(a7)+,d7/a5-a6 

Register vlederherstellen 

2E66 

bra.s 

FC2E4E 

—> 

2E68 




2E68 :- 



AttemptSeBaphore 

2E68 




2E68 FC2E68 

Bovea. 1 

114(a6).a1 

a1 ThlsTask 

2E6C 

addq.b 

/1,127(a6) 

Forbld 

2E70 

addq.v 

/1,2C(a0) 

ss_QueueCount Inkrementleren 

2E74 

beq.s 

FC2E88 

Uarteschlange leer: -> 

2E76 

cnpa. 1 

28(a0),a1 

ss_0wner = ThlsTask? 

2E7A 

beq.s 

FC2E8C 

Ja: -> 

2E7C 

subq.v 

/1,2C(a0) 

ss_QueueCount dekrementleren 

2E8f) 

Jsr 

-8A(a6) 

—> PerBlt 

2E84 

ffioveq 

/0,d0 

Ergebnis FALSE 

2E86 

bra.s 

FC2E96 

—> 

2E88 




2E88 FC2E88 

Bove.l 

a1,28(a0) 

ss_0wner :■= ThlsTask 
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2E8C FC2E8C 

2E90 

2E94 

2E96 FC2E96 

2E98 

addq.v 

Jsr 

moveq 

rts 

/I.E(a0) 

-8A(a6) 

/1 .d0 




2E98 



2E98 FC2E98 

novea.l 

d2/a2-a5,-(a7) 

2E9C 

ttoveq 

/0.d1 

2E9E 

Bovea. 1 

114(a6),a2 

2EA2 

addq.b 

/1,127(a6) 

2EA6 

Bovea.l 

a0,a7 

2EA8 

Bove.l 

0(a3),d2 

2EAC FC2EAC 

Bovea. 1 

d2,a1 

2EAE 

move.l 

(a1).d2 

2EB0 

beq.s 

FC2EDC 

2E62 

addq.v 

/1.2C(a1) 

2EB6 

beq.s 

FC2ED2 

2EB8 

cmpa.l 

28(a1),a2 

2EBC 

beq.s 

FC2ED6 

2EBE 

Bove.l 

a2,24(a1) 

2EC2 

lea 

10(a1),a0 

2EC6 

lea 

1C(a1),a1 

2ECA 

bsr 

FC15E8 

2ECE 

Boveq 

/l,d1 

2ED0 

bra.s 

FC2EAC 

2ED2 



2ED2 FC2ED2 

Bove.1 

a2,28(a1) 

2ED6 FC2ED6 

addq.v 

/1.E(a1) 

2EDA 

bra.s 

FC2EAC 

2EDC 



2EDC FC2EDC 

tst.l 

dl 

2EDE 

beq.s 

FC2F04 

2EE0 

move.l 

0(a5),d2 

2EE4 FC2EE4 

BOvea. 1 

d2,a3 

2EE6 

Bove.l 

(aJ),d2 

2EE8 

beq.s 

FC2F04 

2EEA FC2EEA 

capa.1 

28(a?),a2 

2EEE 

bne.s 

FC2EFC 

2EF0 

tst.w 

E(a3) 


ss_NestCount inkrementleren 
—> Permlt 
Ergebnis TRUE 


ObtainSeoaphoreLlst 

; Register retten 

; a2 ThlsTask 
: Forbld 

: aj a0 -> Semaphore List 

; d2 := lh_Head 

: a1 -> nächster Node 

; d2 := ln_Succ 

i Ende der Liste: -> 

: ss_QueueCount Inkrementleren 
; Uarteschlange war leer: -> 

; ss_0wner * ThlsTask? 

: Ja: -> 

: ssr_Ualter :- ThlsTask 
; a0 -> ss_HaltQueue 
; a1 -> ss_MultipleLlnk 
; —> AddTall 
; dl 1 

;-> Loop 

; ss_0wner :- ThlsTask 
: ss_NextCount Inkrementleren 
; —> Loop 

: Ist Task ln einer Uarteschlange? 
; nein: -> 

: d2 -> 1. Node der Semaphore List 
; aJ -> nächster Node 
; d2 -> ln_Succ 
; Ende der Liste: -> 

: ss_0wner « ThlsTask? 

; nein: -> 

; SS NestCount “ 0? 
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2EF4 


bne.s 

FC2EE4 

2EF6 


addq.v 

/1.E(a5) 

2EFA 


bra.s 

FC2EE4 

2EFC 




2EFC 

FC2EFC 

Boveq 

/1B,dB 

2EFE 


Jsr 

-15E(a6) 

2FB2 


bra.s 

FC2EEA 

2FB4 




2FB4 

FC2FB4 

Jsr 

-8A(a6) 

2FB8 


Bovea. 1 

(a7)+,d2/a2-aj 

2F0C 

2F0E 

2FBE 


rts 


» 



2FBE 




2FBE 

FC2F0E 

Bove.l 

d2,-(a7) 

2F10 


Bove. 1 

0(a0),d2 

2F14 

FC2F14 

Bovea.l 

d2,a0 

2F16 


Bove.l 

(aB),d2 

2F18 


beq.s 

FC2F20 

2F1A 


Jsr 

-2;A(a6) 

2F1E 


bra.s 

FC2F14 

2F2B 




2F2B 

FC2F20 

Bove. 1 

(a7)+.d2 

2F22 

2F24 

2F24 


rts 


» 



2F24 




2F24 

FC2F24 

Jsr 

-22E(a6) 

2F28 


lea 

214(a6),aB 

2F2C 

2F50 

2F30 


bra 

FC1682 

» 



2F5B 




2f;b 

FC2F5B 

bra 

FC168E 


2FJ4 
2F54 : 


2F34 



2FJ4 FC2F34 

lea 

214(a6),aB 

2FJ8 

Jsr 

-114(a6) 

2FJC 

rts 



: nein: -> 

: ss_NestCount inkrenentleren 
; —> Loop 

j dB := sigf_Slngle 
: —> Halt 
: —> Loop 

; —> Pernlt 

; Register wiederherstellen 

ReleaseSenaphoreLlst 

; d2 auf Stack retten 
; d2 -> 1. Node der Senaphore Liste 
; a0 -> nächster Node 
; d2 ln_Succ 
; Ende der Liste: -> 

: —> ReleaseSenaphore 
; —> Loop 

; d2 vlederherstellen 


AddSeaaphore 

i —> InltSeaaphore 
; aÜ -> Semaphore List 
; —> Forbld, Enqueue, Peralt 

ReaSemaphore 

: —> Forbld, Reaove, Peralt 

FlndSeaaphore 

: aB -> Semaphore List 
: —> FlndName 
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2F3E 

2F5E DC.H 0 

2F40 

2F40 :- CopyMeiQulck 

2F40 

2F40 FC2F40 noveq /0,d1 

2F42 bra.s FC2F64 

2F44 


2F44 :- 



2F44 



2F44 FC2F44 

■oveq 

/C.dl 

2F46 

cmp.l 

d1,d0 

2F4e 

bcs.s 

FC2FA2 

2F4A 

■ove.l 

a0,d1 

2F4C 

btst.l 

/0,d1 

2F90 

beq.s 

FC2F56 

2F92 

■ove. b 

(a0)+,(a1)+ 

2F54 

subq.l 

/I ,d0 

2F56 FC2F56 

■ove.l 

a1,d1 

2F58 

btst.l 

/0.d1 

2F5C 

bne.s 

FC2FA2 

2F9E 

■ove.l 

d0,d1 

2F60 

andl.w 

/5.d1 

2F64 FC2F64 

■ove.v 

d1.-(a7) 

2F66 

■oveq 

/60,d1 

2F68 

cnp.l 

d1,d0 

2F6A 

bcs.s 

FC2F86 

2F6C 

■oveb.l 

d1-d7/a2-a6,-(a7) 

2F70 FC2F70 

■oveb.l 

(a0)+,d1-d7/a2-a6 

2F74 

■ove^.l 

d1-d7/a2-a6,(a1) 

2F78 

■oveq 

/30,d1 

2F7A 

adda. 1 

d1,a1 

2F7C 

sub.l 

dl ,d0 

2F7E 

cap.l 

d1,d0 

2F80 

bcc.s 

FC2F70 

2F82 

■ovea.l 

(a7)+.d1-d7/a2-a6 

2F86 FC2F86 

Isr.l 

/2,d0 

2F88 

beq.s 

FC2F9A 

2F8A 

subq.l 

/I ,d0 

2F8C 

■ove.l 

d0,d1 


CopyMea 
dl 12 

Bereichslänge < 12? 

Ja: byteuelse kopieren -> 
dl :• a0 -> Quellberelch 
ungerade Adresse? 
nein: -> 

1 Byte kopieren 
Berelchslänge dekrementleren 
dl :- a1 -> Zlelberelch 
ungerade Adresse? 
ja: byteweise kopieren -> 
dl :■ d0 • Bereichslänge 
dl :> Bereichslänge nodulo 4 
dl auf Stack retten 
dl :» 96 

Bereichslänge < 96? 

Ja: -> 

Register auf Stack retten 
12 Langvorte aus dem Quellberelch 
Uber Register ln Zlelberelch kopieren 
dl :» Länge des kopierten Bereichs 
Zlelzelger um dl erhöhen 
Koplerlänge von Bereichslänge subtr. 
noch elnd. eine Koplerlänge übrig? 

Ja: Kopiervorgang wiederholen -> 
Register wiederherstellen 
d0 :• Restlänge ln Langworten 
- 0 : -> 

d0 :- Anzahl der Langworte-1 
dl :» Koplerschlelfenzähler 
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2FeE 

svap 

d0 

d0 :=■ H-Uort der Anzahl 

2F90 FC2F90 

■ove.l 

(a0)+.(a1)+ 

Koplerschlelfe für Langvorte 

2F92 

dbra 

d1,FC2F90 


2F96 

dbra 

d0.FC2F90 


2F9A FC2F9Ä 

■ove.v 

(a7)+,d1 

dl Zahl der restlichen Bytes 

2F9C 

beq.s 

FC2FB2 

- 0: -> 

2F9E 

Boveq 

/0,d0 

d0 0 

2FA0 

bra.s 

FC2FAA 

—> 

2FA2 




2FA2 FC2FA2 

fflove.v 

d0.d1 

dl Koplerschlelfenzähler 

2FA4 

svap 

d0 

d0 :» H-Wort der Anzahl 

2FA6 

bra.s 

FC2FAA 

—> 

2FA8 




2FA8 FC2FA8 

move.b 

(a0)+.(a1)+ 

Koplerschlelfe für Bytes 

2FAA FC2FAA 

dbra 

d1,FC2FA8 


2FAE 

dbra 

d0,FC2FA8 


2FB2 FC2FB2 

rts 



2FB4 




2FB4 :- 

Default TaskTrap und TaskException 

2FB4 




2FB4 FC2FB4 

■oven.l 

d0-d7/a0-a7.180 

Register retten 

2FBA 

lea 

2(a7),a5 

a5 -> PC auf Stack 

2FBE 

aove.l 

4,d0 

d0 SysBase 

2FC2 

btst.l 

/0,d0 

d0 ungerade? 

2FC6 

bne.s 

FC2FCE 

ja: -> 

2FC8 

novea.l 

d0,a0 

a0 d0 SysBase 

2FCA 

lea 

114(a0),a9 

a5 -> ThlsTask 

2FCE FC2FCE 

nove.l 

(a7),d7 

d7 :* 1. Langwort auf Stack 

2FD0 

andl.l 

/FFFF,d7 

d7 :* Nr. des Ausnahmevektors 

2FD6 




2FD6 ;- 



Alert 

2FD6 




2FD6 FC2FD6 

Bove.v 

/4000,INTENA 

Interrupts sperren 

2FDE 

■ove. 1 

/'HELP',d0 


2FE4 

cap. 1 

0,d0 

steht schon 'HELP’ ab Adresse 0? 

2FE8 

beq 

FC305E 

Ja; Alert la Alert -> 

2FEC 

aove.l 

d0,0 

'HELP' eintragen 

2FF0 

lea 

100,a0 

a0 -> Zwischenspeicher 

2FF4 

aove.l 

d7,(a0)+ 

1. Eintrag: Alert-Kode/Vektornummer 

2FF6 

move. 1 

(a5),(a0)+ 

2. Eintrag: ThlsTask 


Seite 186 


Amiga Know-how 












Amiga Exec 33. 192 


2FF8 

aove.l 

4,d0 

2FFC 

■ove.l 

d0.d1 

2FFE 

andi. 1 

/FF0001,d1 

J004 

bne.s 

FC305E 

3006 

movea. 1 

d0,a6 

3008 

add.l 

26(a6),d0 

300C 

addq.l 

/l.dB 

300E 

bne.s 

FC305E 

3010 

aove.l 

/F1E2D3C4.d0 

3016 

aove.l 

d0,-(a7) 

3018 

cap.l 

(a7)+,d0 

301A 

bne.s 

FC3054 

301C 

tst.l 

d7 

301E 

bnl.s 

FC305E 

3020 

lea 

202(a6),a0 

3024 

aove.l 

d7,(a0)+ 

3026 

aove.l 

(a5).(a0)+ 

3028 

bsr 

FC30EC 

302C 

andi.l 

/FFFF0000.d7 

3032 

bne.s 

FC3044 

3034 

tst.l 

dB 

3036 

aovea. 1 

180.d0-d7/a0-a7 

303C 

bne 

FC05F0 

3040 

bra 

FC2342 

3044 



3044 FC3044 

tst.l 

126(a6) 

3048 

bge.s 

FC3052 

304A 

aove.w 

/C000.INTENA 

3052 FC3052 

rts 


3054 



3054 FC3054 

aovea. 1 

/40000,a7 

305A 

clr.l 

-(a7) 

305C 

clr.w 

-(a7) 

305E FC305E 

orl.b 

/3,BFE201 

3066 

andi.b 

/FE.BFE001 

306E 

aove.l 

/FC3076,20 

3076 FC3076 

move 

/2700,sr 

307A 

Boveq 

/5,d1 

307C 

aove.w 

/174.SERPER 

3084 FC3084 

moveq 

/FF. dB 


; df) :• SysBase 
; d1 dB 
; wirklich SysBase? 

; nein: -> 

; a6 := dZ SysBase 
; + ChkBase 

; + 1 sollte - 0 seinl 
; ist es aber nicht: -> 

; dB mit Bitmuster belegen 
; und auf Stack legen 
; liegt es dort? 

; nein: kein Stack -> 

; Höchstes Bit in dV gesetzt? 
; Ja: -> 

j aB -> LastAlert 
: Alert-Kode abspeichern 
: ThisTask abspeichern 
; —> Alertmeldung ausgeben 
: Unteres Hort von d7 löschen 
; Ergebnis nicht Null: -> 

; Linker Hausknopf gedrückt? 

: Register wiederherstellen 
; Ja: reboot -> 

: —> Debug 

; Interrupts gesperrt? 

; Ja: -> 

; Interrupts freigeben 


Stack neu Initialisieren 
Platz schaffen für PC 
und SR 

8520-A DDRA: Bits 0 und 1 Output 
8520-A PA0 löschen (OVL) 

Vektor für Privilegverletzung setzen 

IR-Ebene 7 setzen 

Zähler für Blinkschleife setzen 

Baudrate auf 9600 setzen 

Zähler für Blinkphase setzen 
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3086 FC3086 

bset.b 

/1,8FE001 

LED dunkel 

308E 

dbra 

d0,FC3086 


3092 FC3092 

bcir.b 

/1,8FE001 

LED hell 

309Ä 

dbra 

d0.FC3092 


309E 

nove.v 

SERDATR,d0 

Serielles Datenregister lesen 

30A4 

Biove.v 

/800,INTREQ 

81t ’Recelve 8uffer full’ löschen 

30AC 

and! .b 

/7F.d0 

Statusbits löschen 

3060 

capl .b 

/7F,d0 

Kode 127 empfangen? 

3064 

dbeq 

d1,FC3084 

nein: bis zu 5 mal wiederholen -> 

3068 

bni 

FC05F0 

dann: reboot -> 

308C 

move. 1 

d7.-(a7) 


306E 

Jmp 

FC2342 

—> Debug 

30C4 




30C4 FC30C4 

move.l 

/-I,d6 

Für LastAlert 

30CA 

CDpl. 1 

/■HELP'.0 

Alert iD Alert? 

30D2 

bne 

FC014C 

nein: Exec-Inltlallslerung -> 

30D6 

clr.l 

0 

'HELP' löschen 

30DA 

■ovem. 1 

100,d6-d7 

Für LastAlert 

30E0 

bra 

FC014C 

—> Exec-Initlalislerung 

30E4 




30E4 FC30E4 

Doven. 1 

d6-d7.202(a6) 

LastAlert-Herte speichern 

30EA 

rts 



30EC 




30EC ;- 

Alert-Meldung ausgeben 


30EC 




30EC FC30EC 

movem.l 

d2/d7/a2-a3/a6,-(a7 

: Register retten 

30F0 

noveq 

/A,d1 

H-Zählerwert für Harteschleife 

30F2 

Boveq 

/FF,d0 

L-Zählerwert für Harteschleife 

30F4 FC30F4 

dbra 

d0,FC30F4 

Harteschleife 

30F8 

dbra 

d1.FC30F4 


30FC 

fflove.l 

202(a6),d2 

d2 :- Alert-Kode oder -1 

3100 

BOveq 

/FF,d0 

d0 :=■ -1 

3102 

cap.l 

d0,d2 

d2 - -1? 

3104 

beq.s 

FC317C 

Ja: -> 

3106 

lea 

-C8(a7),a7 

200-8yte-Ausgabepuffer anlegen 

310A 

lea 

(a7).a3 

a3 -> Ausgabepuffer 

310C 

lea 

9C(pc),a0 

a0 :» FC31AA 'Software Fallure’ 

3110 

move.l 

d2,d0 

d0 := d2 

3112 

svap 

d0 

d0.w :* oberes Hort von d2 

3114 

cmpl .b 

/1.d0 

d0.b = 1? 
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5118 


bne.s 

FC5120 

nein: -> 

511A 


lea 

78(pc),a0 

a0 :» FC5194 'Not enough meiiory’ 

511E 

5120 


bra.s 

FC512E 

—> 

5120 

FC5120 

btst.l 

/1F,d2 

Höchstes Bit von d2 gesetzt? 

5124 


bne.s 

FC512E 

Ja: -> 

5126 


tst.v 

d0 

d2 = Vektornummer? 

5128 


beq.s 

FC512E 

Ja: -> 

512A 


lea 

95(pc),a0 

a0 :» FC51BF ’Recoverable Alert. 

512E 

FC512E 

bsr.s 

FC518A 

-> Text ln Ausgabepuffer 

5150 


lea 

A5(pc),a0 

a0 :• FC51D5 'Press left mouse . 

5154 


bsr.s 

FC518A 

—> Text ln Ausgabepuffer 

5156 


clr.b 

(a5) + 

Endekode anfOgen 

5158 


lea 

C2(pc),a0 

a0 :- FC51FC 'Guru Meditation .. 

515C 


lea 

202(a6),a1 

a1 -> Ausgabe-Daten 

5140 


lea 

42(pc).a2 

a2 :• FC5184 (Ausgaberoutine) 

5144 


Jsr 

-20A(a6) 

-> RauDoFmt 

5148 


lea 

D1(pc).a1 

a1 := FC521B 'Intuition.llbrary' 

514C 


moveq 

/0,d0 

Version beliebig 

514E 


Jsr 

-228(a6) 

—> OpenLlbrary 

5152 


tst.l 

d0 

Library geöffnet? 

5154 


beq.s 

FC516E 

nein: -> 

5156 


aovea.l 

a6,a5 

a6 ln a5 retten 

5158 


novea.l 

d0,a6 

a6 :- IntultlonBase 

515A 


clr.l 

d0 

Alertnummer :* 0 

515C 


lea 

(a7).a0 

a0 -> Ausgabepuffer 

515E 


Boveq 

/28,d1 

dl := 40 = Ausgabehöhe 

5160 


Jsr 

-5A(a6) 

—> DlsplayAlert 

5164 


Bovea.1 

d0,a2 

d0 ln a2 retten 

5166 


Bovea. 1 

a6,a1 

a1 := a6 = IntultlonBase 

5168 


Bovea.l 

a5,a6 

a6 := a5 = SysBase 

516A 


Jsr 

-19E(a6) 

—> CloseLlbrary 

516E FC516E 

lea 

C8(a7),a7 

Ausgabepuffer auflösen 

5172 


clr.l 

0 

'HELP' löschen 

5176 


moveq 

/FF,d0 

d0 := -1 

5178 


nove.l 

d0,202(a6) 

als LastAlert speichern 

517C 

FC517C 

move.l 

a2,d0 

d0 :- Alert-Resultat 

517E 

5182 

5184 


moven.l 

rts 

(a7)+,d2/d7/a2-a5/a6 ; Register wiederherstellen 
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5184 . 

Ausgaberoutine für 

lauDoFmt 

5184 




5184 FC5184 

nove.b 

d0,(a5)+ 

; Zeichen ln Ausgabepuffer 

5186 

clr.b 

(a5) 

; Endekode anfügen 

5188 

rts 



518A 




518A :- 

Text ln 

Ausgabepuffer kopieren 

518A 




518A FC518A 

clr.b 

(a5) + 

j Kode 0 ln Puffer 

518C FC518C 

aove.b 

(a0)+.(a5)+ 

: String ln Puffer kopieren 

518E 

bne.s 

FC518C 

; bis Endekode 

5190 

st 

(a5) + 

; Fortsetaungskode dahinter 

5192 

rts 



5194 




5194 ;- 

Alert-Texte 


5194 




5194 FC5194 

DC.B 

26,0F,’Not 

enough memory. ',0 

51AA FC51AA 

DC.B 

26.0F,'Software Fallure. ’,0 

51BF FC51BF 

DC.B 

26,0F,'Recoverable Alert. ',0 

51D5 FC51D5 

DC.B 

EA,0F,'Press left mouse button to contlnue.',0 

51FC FC51FC 

DC.B 

8E.IE,'Guru 

Meditation /)t081x.){081x'.0 

521B 




521B FC521B 

DC.B 

'Intuition.llbrary',0 

522D 




522D :- 

Alert Resident-Struktur 

522D 




522D FC522D 

DC.B 

'alert.hook 

'.0D,0A,0 

525A 




525A FC525A 

DC.U 

4AFC 

i rt_HatchWord 

525C 

DC.L 

FC525A 

: rt_MatchTag 

5240 

DC.L 

FC5254 

: rt_Endsklp 

5244 

DC.B 

1 

: rt_Flags 

5245 

DC.B 

21 

; rt_Verslon 

5246 

DC.B 

0 

; rt_Type 

5247 

DC.B 

5 

; rt_Prl 

5248 

DC.L 

FC522D 

; rt_Naae 

524C 

DC.L 

FC522D 

; rt_IdStrlng 

5250 

DC.L 

FC50EC 

; rt_Inlt 

5254 




5254 :- 

Tabelle 

für Debug-Tastenkonmandokos 
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3254 


3254 rC3254 

DC.L 

FC325E 

; Zeiger zuB nächsten Tabelleneintrag 

3258 

DC.8 

4.8 

; CTRL-D 

325A 

DC.L 

FC2442 


325E FC325E 

DC.L 

FC3268 


3262 

DC.B 

D,8 

i RETURN 

3264 

DC.L 

FC2518 


3268 FC3268 

DC.L 

FC3272 


326C 

DC.B 

9.8 

: TAB 

326E 

DC.L 

FC2426 


3272 FC3272 

DC.L 

FC327C 


3276 

DC.B 

’?’.8 


3278 

DC.L 

FC2B86 


327C FC327C 

DC.L 

FC3286 


3288 

DC.B 

•.’.B 


3282 

DC.L 

FC2562 


3286 FC3286 

DC.L 

FC329e 


328A 

DC.B 

’.’.a 


328C 

DC.L 

FC2572 


3298 FC3298 

DC.L 

FC329A 


3294 

DC.B 

•>'.8 


3296 

DC.L 

FC2522 


329A FC329A 

DC.L 

FC32A4 


329E 

DC.B 

•<•.8 


32A8 

DC.L 

FC2542 


32A4 FC32A4 

DC.L 

FC32AE 


32A8 

DC.B 

8.8 

; BACKSPACE 

32AA 

DC.L 

FC2542 


32AE FC32AE 

DC.L 

FC32B8 


3282 

DC.B 

■ -.8 


3284 

DC.L 

FC2522 


3288 FC3288 

DC.L 

FC32C2 


328C 

DC.B 

5B.8 

; eckige Klaamer auf 

328E 

DC.L 

FC2582 


32C2 FC32C2 

DC.L 

FC32CC 


32C6 

DC.B 

5D.8 

; eckige KlasBer zu 

32C8 

DC.L 

FC25A8 


32CC FC32CC 

DC.L 

FC32D6 


32D8 

DC.B 

•:-.8 


3202 

DC.L 

FC2682 
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32D6 FC32D6 

DC.L 

FC32E0 

32DA 

DC.B 

* + * ,0 

32DC 

DC.L 

FC25B4 

32E() FC32E0 

DC.L 

FC32EA 

32E4 

DC.B 

.0 

32E6 

DC.L 

FC25D4 

32EA FC32EA 

DC.L 

FC32F4 

32EE 

DC.B 

’-’,0 

32F0 

DC.L 

FC2642 

32F4 FC32F4 

DC.L 

FC32FE 

32F8 

DC.B 

•f.0 

32FA 

DC.L 

FC2938 

32FE FC32FE 

DC.L 

FC3308 

3302 

DC.B 

•**,0 

3304 

DC.L 

FC29B2 

3308 FC3308 

DC.L 

FC3312 

330C 

DC.B 

* * .0 

330E 

DC.L 

FC2BA0 

3312 FC3312 

DC.L 

FC331C 

3316 

DC.B 

•09’ 

3318 

DC.L 

FC2BA0 

331C FC331C 

DC.L 

FC3326 

3320 

DC.B 

*az* 

3322 

DC.L 

FC2BA0 

3526 FC3326 

DC.L 

FC3530 

332A 

DC.B 

•AZ’ 

332C 

DC.L 

FC2BA0 

3330 FC3330 

DC.L 

0 

3334 



3334 :- 

Tabelle 

für Debug-Parameterelngabe 

3334 



3334 FC3334 

DC.L 

FC333E 

3338 

DC.B 

8,0 i BACKSPACE 

353A 

DC.L 

FC2C44 

353E FC335E 

DC.L 

FC5348 

5342 

DC.B 

D.0 : RETURN 

3344 

DC.L 

FC2C6E 

5548 FC3348 

DC.L 

FC3352 

334C 

DC.B 

18,0 ; CTRL-X 

334E 

DC.L 

FC2C2C 
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J352 FC3J52 

DC.L 

FC335C 

3356 

DC.B 

15.0 

3358 

DC.L 

FC2C2C 

335C FC335C 

DC.L 

FC3366 

3360 

DC.B 

’>’,0 

3362 

DC.L 

FC2522 

3366 FC3366 

DC.L 

FC3370 

336A 

DC.B 

•<’,0 

336C 

DC.L 

FC2542 

3370 FC3370 

DC.L 

FC337A 

3374 

DC.B 

’ ’.0 

3376 

DC.L 

FC2C2A 

337A FC337A 

DC.L 

FC3384 

337E 

DC.B 

‘JA 

3380 

DC.L 

FC2BA0 

3384 FC3384 

DC.L 

FC338E 

3388 

DC.B 

’09’ 

338A 

DC.L 

FC2BA0 

338E FC338E 

DC.L 

FC3398 

3392 

DC.B 

’az’ 

3394 

DC.L 

FC2BA0 

3398 FC3398 

DC.L 

FC33A2 

339C 

DC.B 

•AZ’ 

339E 

DC.L 

FC2BA0 

33A2 FC33A2 

DC.L 

0 


55A6 

J5A6 ;-Tabelle der Debug-Konnnandonainen 

55A6 


33A6 FC33A6 

DC.B 

•alter’.B 

33AC FC33AC 

DC.B 

’boot',0 

33B1 FC33B1 

DC.B 

’clear’,0 

33B7 FC33B7 

DC.B 

•flll’.0 

33BC FC33BC 

DC.B 

’find’,0 

35C1 FC33C1 

DC.B 

’go’ ,0 

33C4 FC33C4 

DC.B 

’lg-.0 

33C7 FC33C7 

DC.B 

’liBit’.0 

33CD FC33CD 

DC.B 

’llsf,0 

33D2 FC33D2 

DC.B 

’regs’,0 

33D7 FC33D7 

DC.B 

’reset’,0 

33DD FC33DD 

DC.B 

’resuae’,0 
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35E4 FCJJE4 

DC.B 

’set’,0 


3JE8 FC3JE8 

DC.B 

’show’,0 


JJED FC3JED 

DC.B 

’user*,0 


5JF2 

DC.U 

0 


35F4 




53F4 ;- 

Tabelle 

der Routinenadressen 

zu den Koaaandonainen 

J3F4 




JJF4 FCJJF4 

DC.L 

FC3402 : 

Zeiger auf nächsten Eintrag 

33F8 

DC.L 

FC33A6 : 

'alter' 

33FC 

DC.U 

1 


33FE 

DC.L 

FC2670 ; 

Adresse der zugehörigen Routine 

3402 FC3402 

DC.L 

FC3410 


3406 

DC.L 

FC33AC ; 

'boot' 

340A 

DC.U 

1 


340C 

DC.L 

FC05F0 


3410 FC3410 

DC.L 

FC341E 


3414 

DC.L 

FC33B1 : 

'clear' 

3418 

DC.U 

1 


341A 

DC.L 

FC28A2 


341E FC341E 

DC.L 

FC342C 


3422 

DC.L 

FC33B7 ; 

'flll' 

3426 

DC.U 

1 


3428 

DC.L 

FC2A38 


342C FC342C 

DC.L 

FC343A 


3430 

DC.L 

FC33BC ; 

'find' 

3434 

DC.U 

1 


3436 

DC.L 

FC29C0 


343A FC343A 

DC.L 

FC3448 


343E 

DC.L 

FC33C1 : 

'go' 

3442 

DC.U 

1 


3444 

DC.L 

FC2438 


3448 FC3448 

DC.L 

FC3456 


344C 

DC.L 

FC33C4 ; 

■ig’ 

3450 

DC.U 

1 


3452 

DC.L 

FC05F0 


3456 FC3456 

DC.L 

FC3464 


345A 

DC.L 

FC33C7 ; 

'llmlt' 

345E 

DC.U 

1 


3460 

DC.L 

FC29B2 


3464 FC3464 

DC.L 

FC3472 
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3468 

DC.L 

FC33CD 

i ’llsf 

346C 

DC.H 

1 


346E 

DC.L 

FC26B2 


3472 FC3472 

DC.L 

FC3480 


3476 

DC.L 

FC33D2 

i ’regs’ 

347A 

DC.U 

1 


347C 

DC.L 

FC27E6 


3480 FC3480 

DC.L 

FC348E 


3484 

DC.L 

FC33D7 

; ’reset’ 

3488 

DC.U 

1 


348A 

DC.L 

FC28B2 


348E FC348E 

DC.L 

FC349C 


3492 

DC.L 

FC33DD 

: ’resume 

3496 

DC.U 

1 


3498 

DC.L 

FC2442 


349C FC349C 

DC.L 

FC34AA 


34A0 

DC.L 

FC33E4 

i ’set’ 

34A4 

DC.U 

1 


34A6 

DC.L 

FC28D0 


34AA FC34AA 

DC.L 

FC34B8 


34AE 

DC.L 

FC33E8 

; 'Show' 

34B2 

DC.U 

1 


34B4 

DC.L 

FC290A 


34B8 FC34B8 

DC.L 

FC34C6 


34BC 

DC.L 

FC33ED 

: ’user' 

34 C0 

DC.U 

1 


34C2 

DC.L 

FC24B2 


34C6 FC34C6 

DC.L 

0 



54CA 

54CA Ende von Exec 
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DOS - Bootstrap 



8884 « 





8884 «DO 

S - B 0 

0 T S T R A P 


M 

8884 * 





8884 •««K«N»«»««»«««»»«««»»»«««»»»«ltl(ltM<tN«»«»«»»<(«»»»»«K»*lt*«<IK«»»l(«l(ll»lll(K)(K« 

8884 





8884 FE8884 

DC.U 

4AFC 

rt_Matchword 


8886 

DC.L 

FE8884 

rt_Hatchtag 


888A 

DC.L 

FE88C0 

rt_Endsklp 


888E 

DC.B 

1 

rt_Flags 


888F 

DC.B 

21 

rt_Verslon 


8898 

DC.B 

0 

rt_Type 


8891 

DC.B 

C4 

rt_Prl 


8892 

DC.L 

FE889E 

rt_Name 


8896 

DC.L 

FE88A4 

rt_IdStrlng 


889A 

DC.L 

FE88D6 

rt_Inlt 


889E 





889E FE889E 

DC.B 

’strap’,0 



88A4 FE88A4 

DC.B 

•strap 3J.97 (1 Oct 

1986)’,0D,0A,0,0 


88C8 





88C0 FE88C0 

DC.B 

■DOS’,0 



88C4 FE88C4 

DC.B 

’trackdisk.device’,0,0 


88D6 





88D6 FE88D6 

Doven.1 

d2-d3/a3-a5,-(a7) 

Register retten 


88DA 

Boveq 

/0,d5 

dj 0 


88DC 

suba.l 

a4,a4 

a4 :* 0 


88DE 

lea 

FE8B3A,aJ 

aj -> rts 


88E4 

link 

a5,/-7E 

Platz für 126 Bytes in Stack 


88E8 

suba.l 

/7E,a5 

a5 auf Stack-Bereich setzen 


88EE 

Bove.1 

a6,0(a5) 

SysBase abspeichern 


88F2 

■ove.l 

dJ,4(a5) 

Platz für GfxBase löschen 
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88F6 

move.l 

/488,d0 

88FC 

move. 1 

/10002,d1 

8902 

Jsr 

-C6(a6) 

8906 

tst.l 

d0 

8908 

bne.s 

FE8924 

890A 

Boven. 1 

d7/a5-a6,-(a7) 

890E 

Bove.l 

/50010000,d7 

8914 

Bovea. 1 

4,a6 

8918 

Jsr 

-6C(a6) 

891C 

Boveni. 1 

(a7)+.d7/a5-a6 

8920 

bra 

FE8B2A 

8924 



8924 FE8924 

Bovea.1 

d0 ,a4 

8926 

lea 

FE889E,a0 

892C 

Bove.l 

a0,56(a5) 

89J0 

Bove. 1 

a0.66(a5) 

8954 

suba. 1 

a1 ,a1 

8956 

Jsr 

-126(a6) 

895A 

Bove.l 

d0.6C(a5) 

895E 

Bove.b 

/0,6A(a5) 

8944 

lea 

70(a5).a0 

8948 

move.l 

a0,(a0) 

894A 

addq. 1 

/4,(a0) 

894C 

clr.l 

4(a0) 

8950 

move.l 

a0,8(a0) 

8954 

aoveq 

/FF.d0 

8956 

Jsr 

-14A(a6) 

895A 

Bove.b 

d0,6B(a5) 

895E 

bpl.s 

FE897A 

8960 

Bovem.l 

d7/a5-a6,-(a7) 

8964 

move.l 

/50070000,d7 

896A 

movea.l 

4 ,a6 

896E 

Jsr 

-6C(a6) 

8972 

movem.l 

(a7)+,d7/a5-a6 

8976 

bra 

FE8B1E 

897A 



897A FE897A 

lea 

5C(a5),a0 

897E 

move.l 

a0.5A(a5) 

8982 

lea 

-C0(pc),a0 

8986 

lea 

2C(a5),a1 


Pufferlänge 1160 Bytes 
Speichertyp CHIP. CLEAR 
—> AllocMe» 

Speicher reserviert? 

Ja: -> 

Register retten 
d7 := Alert-Kode 
a6 SysBase 

—> Alert 

Register ulederherstellen 
—> Abschlus 

a4 := d0 -> Puffer 
a0 -> rt_Name ’strap’ 
ln lOStdReq und 
ln ReplyPort eintragen 
a1 0 

—> FlndTask 

SlgTask ln ReplyPort eintragen 
Flags löschen 
a0 -> mp_HsgLlst Header 
Header Initialisieren 


keine bestlniDte Slgnalnunner 
—> AllocSlgnal 
Alloslertes Signal abspeichern 
Signal erfolgreich alloslert: -> 
Register retten 
d7 := Alert-Kode 
a6 := SysBase 
—> Alert 

Register wiederherstellen 
—> Abschluß 

a0 -> ReplyPort 

ln lOStdReq eintragen 

a0 := FE88C4 -> 'trackdlsk.devlce' 

a1 -> lORequest 
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898A 


noveq 

/0,d0 

898C 


noveq 

/0.d1 

898E 


Jsr 

-1BC(a6) 

8992 


tst.l 

d0 

8994 


beq.s 

FE8960 

8996 


Doven.l 

d7/a5-a6.-(a7) 

899A 


Dove.l 

/30048014,d7 

89A0 


Bovea.l 

4,a6 

89A4 


Jsr 

-6C(a6) 

89A8 


Bovea. 1 

(a7)+,d7/a5-a6 

89AC 


bra 

FE8B14 

89B0 




89B0 

FE89B0 

Bove.w 

/100.DHACON 

89B8 


lea 

2C(a5).a1 

89BC 


Bove.w 

/5.1C(a1) 

89C2 


Jsr 

-1C8(a6) 

89C6 


tst.l 

d0 

89C8 


bne 

FE8AC8 

89CC 


lea 

2C(a5).a1 

89D0 


Bove.w 

/D,1C(a1) 

89D6 


Jsr 

-1C8(a6) 

89DA 


tst.l 

d0 

89DC 


bne 

FE8AC8 

89E0 


Bove.l 

4C(a5).d2 

89E4 


lea 

2C(a5).a1 

89E8 


Bove.w 

/2.1C(a1) 

89EE 


Bove.l 

/400,24(a1) 

89F6 


move.l 

a4,28(a1) 

89FA 


Bove.l 

/0.2C(a1) 

8A02 


Jsr 

-1C8(a6) 

8A06 


tst.l 

d0 

8A08 


bne.s 

FE8A5C 

8A0A 


move.l 

(a4),d0 

8A0C 


cmp.l 

-14E(pc).d0 

8A10 


bne.s 

FE8A5C 

8A12 


movea. 1 

a4,a0 

SAM 


Bove.w 

/FF,dl 

8A18 


Boveq 

/0,d0 

8A1A 

FE8A1A 

add. 1 

(a0)+,d0 

8A1C 


bcc.s 

FE8A20 


iß = Unit-Nunmer :• 0 
dl = Flags := 0 
—> OpenDevice 
erfolgreich? 
ja: -> 

Register retten 
d7 := Alert-Kode 
a6 := SysBase 
—> Alert 

Register wiederherstellen 
—> Abschlup 

Bit Plane DMA sperren 
a1 -> lORequest 
lo_Coi!iinand := ciiid_Clear 
—> DoIO 
Fehler? 

Ja: -> 

al -> lORequest 
lo_Coiii!iiand := td_Changenum 
—> DoIO 
Disk gewechselt? 

Ja: -> 

d2 := lo_Actual 
a1 -> lORequest 
lo_Coiiiinand :» cmd_Read 
lo_Length := 1024 Bytes 
io_Data a4 
io_Offset :» 0 
—> DoIO 
Fehler? 

Ja: -> 

d0 1. gelesenes Langwort 
d0 = ’DOS'? 

nein: Graphik ausgeben -> 
a0 -> Blockanfang 
dl := 255 = Zahl der Langworte - 1 
d0 löschen 

nächstes Langwort im Block addieren 
kein übertrag: -> 
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8A1E 

addq.l 

/1 ,d0 

8A20 FE8A20 

dbra 

d1,FE8A1A 

8A24 

not. 1 

d0 

8A26 

bne.s 

FE8A3C 

8A28 

lea 

2C(a5).a1 

8A2C 

Jsr 

C(a4) 

8A30 

tst.l 

d0 

8A72 

beq.s 

FE8A36 

8A34 

■ove. 1 

d0,-(a7) 

8A36 

■ovea.1 

a7,a1 

8A58 

Bovea.l 

d7/a5-a6.-(a7) 

8A3C 

■ove. 1 

/30000001,d7 

8A42 

lea 

(a1),a5 

8A44 

Bovea.l 

4,ab 

8A48 

Jsr 

-bC(ab) 

8A4C 

aoven.l 

(a7)+,d7/a5-ab 

8A30 

addq.l 

/4.a7 

8A52 

bra 

FE8B00 

8A56 



8A36 FE8A36 

■ovea.l 

a0,a3 

8A58 

bra 

FE8B00 

8A3C 



8A5C FE8A5C 

■ove. 1 

4(a5).d0 

8A60 

bne.s 

FE8Abb 

8A62 

bsr 

FE8B7E 

8A66 FE8A66 

Bove.v 

/8100,DnACON 

8A6E 

lea 

2C(a5),a1 

8A72 

■ove.v 

/9.1C(a1) 

8A78 

clr.l 

24(a1) 

8A7C 

Jsr 

-1C8(ab) 

8A80 

tst.l 

d0 

8A82 

bne.s 

FE8AC8 

8A84 FE8A84 

lea 

2C(a5).a1 

8A88 

■ove.w 

/D,1C(at) 

8A8E 

Jsr 

-1C8(ab) 

8A92 

tst.l 

d0 

8A94 

bne.s 

FE8AC8 

8A96 

CBp.l 

4C(a5),d2 

8A9A 

beq.s 

FE8A84 

8A9C FE8A9C 

lea 

2C(a3),a1 


übertrag addieren 

bis alle Langvorte addiert: *> 

Ergebnis negieren 

nicht 0: Graphik ausgeben -> 

a1 -> lORequest 

—> DOS suchen, a0 :• rt_init 
gefunden? 

Ja: -> 


; Register retten 
: d? :- Alert-Kode 

; ab :• SysBase 
! —> Alert 

; Register vlederherstellen 
. —> 

: aj :- a0 ■ DOS-Init-Routlne 
: —> Abschlus 

; d0 :• GfxBase oder 0 
; Graphik schon ausgegeben: -> 
j —> Graphik ausgeben 
: Bit Plane DMA freigeben 
j a1 -> lORequest 
: lo_Coanand :- td_Motor 
; lo_Length 0 
; —> DoIO 
j Fehler? 
i Ja: -> 

: a1 -> lORequest 
; io_CoiSDand :> td_Changenua 
; —> DoIO 

; Diskette gewechselt? 

: Ja: -> 

; lo_Actual » d2? 
i Ja: -> 

: a1 -> lORequest 


Seite 200 


Amiga Know-how 








DOS - Bootstrap 


8AA0 

Bove.v 

«,lC(a1) 

8AA6 

Jsr 

-1C8(a6) 

8AAA 

tst.l 

d0 

8AAC 

bne.s 

FE8AC8 

8AAE 

tst.l 

4C(a5) 

8AB2 

bne.s 

FE8A9C 

8AB4 

bra 

FE89B0 

8AB8 



8AB8 FE8AB8 

lea 

2C(a9),a1 

8ABC 

love.w 

/D.1C(a1) 

8AC2 

Jsr 

-1C8<a6) 

8AC6 

bra.s 

FE8A5C 

8AC8 



8AC8 FE8AC8 

cmpl.b 

/1D.4B(a5) 

8ACE 

beq.s 

FE8AB8 

8AD0 

pea 

0 

8AD4 

Bove.v 

48(a5).2(a7) 

8ADA 

pea 

0 

8ADE 

Bove.b 

4B(a5).3(a7) 

8AE4 

Bovea.1 

a7,a1 

8AE6 

Bovem.l 

d7/a5-a6,-(a7) 

8AEA 

aove. 1 

/J0068014.d7 

8AF0 

lea 

(a1).a5 

8AF2 

Bovea.l 

4,a6 

8AF6 

Jsr 

-6C(a6) 

8AFA 

Bovea.1 

(a7)+,d7/a5-a6 

8AFE 

addq.l 

/8,a7 

8B00 FE8B00 

bsr 

FE8DD0 

8B04 

Bove.v 

/8100,DHACON 

8B0C 

lea 

2C(a9).a1 

8B10 

Jsr 

-1C2(a6) 

8B14 FE8B14 

Boveq 

/0,d0 

8B16 

Bove.b 

F(a5),d0 

8B1A 

Jsr 

-150(a6) 

8B1E FE8B1E 

Bovea.l 

a4 ,a1 

8B20 FE8B20 

Bove.l 

/'488,d0 

8B26 

Jsr 

-D2(a6) 

8B2A FE8B2A 

adda. 1 

/7E.a5 

8B30 

unlk 

a5 

8B32 

Bovea.l 

a3,a0 


; lo_CoBiand td_Changestate 
: —> DoIO 

; Diskette in Laufwerk? 

; nein: -> 

; io_Actual • 0? 

; nein: -> 

. — > 

; a1 -> lORequest 
: io_CoinBand :• td_Changenun 
; —> DoIO 
. —> 

; io_Error - tderr_DiskChanged? 
: Ja: -> 

; io_CoBBand auf Stack 

: io_Error auf Stack 

: Register retten 
: d7 := Alert-Kode 

; a6 :» SysBase 
: —> Alert 

; Register viederherstellen 
; Parameter vom Stack nehmen 
: —> Graphik loschen 
; Bit Plane DNA freigeben 
; a1 -> lORequest 
: —> CloseDevice 
; d0 :< 0 

; —> FreeSignal 
: a1 -> Puffer 
i d0 :» Pufferlange 1160 
; —> FreeHem 
; Stackbereich freimachen 

; a0 :* aj -> DOS-Inlt-Routlne 
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8B54 

movem.l (a7) + ,(J2-dJ/a5-a5 

Register wiederherstellen 

8B;8 

Jmp (a0) 

—> DOS Initialisieren 

8B?A 



8B;A FE8B5A 

rts 


8BJC 



8B3Ci-. 

Graphik-Routinen 


8B5C 



8B3C FE8B3C 

DC.B ’graphlcs.llbrary’,0,0 

8B4E 



8B4E FE8B4E 

DC.H 0FFF,0FFF,0FFF,0FFF,0FFF.0FFF,0FFF,0FFF ; Color-Tabellen 

8B5E 

DC.H 0FFF,0FFF,0FFF.0FFF,0FFF,0FFF,0FFF,0FFF 

8B6E 

DC.U 0FFF.0FFF,0FFF.0FFF 


8B76 



8B76 FE8B76 

DC.W 0FFF.0,077C,0BBB 


8B7E 



8B7E ;- 

Graphik ausgeben 


8B7E 



8B7E FE8B7E 

lea -44(pc),a1 

a1 :» FE8B3C -> ’graphlcs.llbrary' 

8B82 

moveq /0,d0 

Version 

8B84 

Jsr -228(a6) 

—> OpenLlbrary 

8B88 

Bove.l d0,4(a3) 

LlbBase eintragen 

8B8C 

bne.s FE8BA6 

Library gefunden: -> 

8B8E 

movem.l d7/a5-a6,-(a7) 

Register retten 

8B92 

Bove.l /30038002,d7 

d7 := Alert-Kode 

8B98 

movea.l 4,a6 

a6 ;• SysBase 

8B9C 

Jsr -6C(a6) 

—> Alert 

8BAi) 

movem.l (a7)+,d7/a5-a6 

Register wiederherstellen 

8BA4 

rts 


8BA6 



8BA6 FE8BA6 

movem.l d2-d5/a2-a?/a6,-(a7) ; Register retten 

8BAA 

movea.l 0(a5),a6 

a6 := SysBase 

8BAE 

move.l /5E9A,d0 

d0 := 24218 * Bedarf an Bytes 

8BB4 

move.l /10003,d1 

dl ;• Speichertyp PUBLIC, CHIP, CLEAR 

8BBA 

Jsr -C6(a6) 

—> AllocMem 

8BBE 

tst.l d0 

Speicher reserviert? 

8BC8 

bne FE8BE0 

Ja: -> 

8BC4 

movem.l d7/a5-a6,-(a7) 

Register retten 

8BC8 

move.l /30010000,d7 

d7 Alert-Kode 

8BCE 

movea.l 4,a6 

a6 := SysBase 

8BD2 

Jsr -6C(a6) 

—> Alert 
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8BD6 

■oven.l 

(a7)+,d7/a5-a6 

Register vlederherstellen 

8BDA 

■ovea.l 

(a7)+.d2-d5/a2-a3/a6 


SBDE 

rts 




8BE0 





8BE0 FE8BE0 

■ove.l 

d0,B(a3) 

0 

-> VlewPort 

8BE4 

addi.l 

/28,d0 



8BEA 

■ove. 1 

d0.C(a5) 

40 

-> View Structure 

8BEE 

addi.l 

/12,d0 



8BF4 

aove.l 

d0,10(a5) 

58 

-> RastPort Structure 

8BF8 

addi.l 

m,d0 



8BFE 

■ove.l 

d0.14(a5) 

158 

-> TopRas 

8C02 

addi.l 

/8,d0 



8C08 

■ove.l 

d0,18(a5) 

166 

-> Raslnfo 

8C0C 

addi.l 

/C,d0 



8C12 

■ove. 1 

d0,1C(a5) 

178 

-> BltMap 

8C16 

addi.l 

/28,d0 



8C1C 

■ove.l 

d0,20(a3) 

206 

-> B«_Plane0 

8C20 

■ove.l 

/1F40.d1 



eC26 

add.l 

dl ,d0 



8C28 

■ove.l 

d0.24(a5) 

8206 -> BM_Plane1 

8C2C 

add.l 

dl .d0 



8C2E 

■ove.l 

d0.28(a3) 

16206 

8C32 

■ovea. 1 

4(a5).a6 

a6 

i'* GfxBase 

8C36 

Bovea.l 

8(a5),a0 

a0 

-> ViewPort 

8C3A 

Jsr 

-CC(a6) 

— 

> InitVPort(a0) 

8C3E 

■ovea.l 

C(a5),a1 

a1 

-> View 

8C42 

Jsr 

-168(a6) 

— 

> InltVieu(al) 

8C46 

■ovea.l 

1C(a5),a0 

a0 

-> BltMap 

8C4A 

Doveq 

/2,d0 

d0 

:• Depth ” 2 

8C4C 

■ove.l 

/140,d1 

dl 

Midth * 520 px 

8C52 

■ove.l 

/C8,d2 

d2 

:= Helght = 200 px 

8C38 

Jsr 

-186(a6) 

— 

> InltBltHap 

8C5C 

■ovea.l 

1C(a3),a0 

a0 

-> BltMap 

8C60 

■ove.l 

20(a3),8(a0) 

BM_Planes eintragen 

8C66 

■ove.l 

24(a5),C(a0) 



8C6C 

■ovea.l 

10(a3),a1 

a1 

-> RastPort 

8C70 

Jsr 

-C6(a6) 

— 

> InltRastPort 

8C74 

■ovea.l 

14(a5),a0 

a0 

-> TmpRas 

8C78 

■ovea.l 

28(a3),a1 

a1 

-> Buff 

8C7C 

■ove.l 

/1F40,d0 

d0 

Slze - 8000 
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8C82 

Jsr 

-104(a6) 

8C86 

Bovea. 1 

18(a5).a0 

8C8A 

Bove.l 

1C(a5),4(a0) 

8C90 

Bovea. 1 

10(a5),a0 

8C94 

Bove.l 

1C(a5).4(a0) 

8C9A 

Bove.l 

14(a5),C(a0) 

8CA0 

Bovea. 1 

8(a5),a0 

8CA4 

aove.w 

/C8,1A(a0) 

8CAA 

Bove.w 

/140,18(a0) 

8CB0 

Bove. 1 

18(a5).24(a0) 

eCB6 

clr.w 

20(a0) 

8CBA 

Bovea. 1 

C(a5).a3 

8CBE 

Bove.l 

8(a5).0(a3) 

8CC4 

Bovea.l 

a5 ,a0 

8CC6 

Bovea.1 

8(a5),a1 

8CCA 

jsr 

-08(a6) 

8CCE 

Bovea.1 

a3,a1 

8CD0 

jsr 

-02(a6) 

8CD4 

Bovea.1 

a5,a1 

8CD6 

Jsr 

-0E(a6) 

8CDA 

BOvea.1 

8(a5).a0 

8CDE 

lea 

-192(pc).a1 

eCE2 

Boveq 

/14,d0 

8CE4 

Jsr 

-C0(a6) 

8CE8 

Bovea.l 

10(a5).a5 

8CEC 

lea 

12E(pc).a2 

8CF0 

Bovea.l 

a5,a1 

8CF2 

aoveq 

/0,d0 

8CF4 

Jsr 

-162(a6) 

8CF8 FE8CF8 

aoveq 

/0,d5 

8CFA 

Bove.b 

(a2)+.d3 

8CFC 

aoveq 

/0.d5 

8CFE 

Bove.b 

(a2)+.d5 

8D00 

CBpl.b 

/FF.d3 

8D04 

bne.s 

FE8D2E 

8D06 

capl.b 

/FF,d5 

8D0A 

beq 

FE806A 

8D0E 

aoveq 

/0.d4 

8010 

Bove.b 

(a2)+.d4 

8012 

aoveq 

/'0.d3 


—> InltTmpRas 

it -> Raslnfo 

Zgr auf Bltnap eintragen 

a0 -> RastPort 

Zgr auf Bltnap eintragen 

Zgr auf TnpRas eintragen 

a0 -> VleuPort 

vp_DHelght 200 

vp_DHldth :• 520 

vp_Raslnfo eintragen 

vp_nodes := 0 

a5 -> View 

VlewPort eintragen 

a0 -> View 

a1 -> VlewPort 

—> MakeVPort 

a1 -> View 

—> HrgCop 

a1 -> View 

—> LoadVlew 

a0 -> VlewPort 

a1 := FE8B4E -> Colors 

d0 20 Worte 

—> LoadRGB4 

a3 -> RastPort 

a2 :■ FE8E1C 

a1 -> RastPort 

d0 :• 0 • Hode 

—> SetDrHd 

d3 0 

d3 nächstes Byte aus Tabelle 

d5 0 

d5 :• nächstes Byte aus Tabelle 

d3 • *FF? 
nein: -> 
d5 - $FF? 

Ja: -> 
d4 :> 0 

d4 :■ nächstes Byte aus Tabelle 
d3 :• 0 


Seite 204 


Amiga Know-how 






DOS - Bootstrap 


8D14 


nove.b 

(a2)+.d3 

d3 

• nächstes Byte 

aus Tabelle 

8D16 


■ovea.l 

a3,a1 

a1 

-> RastPort 


8D18 


■ove.l 

d5.d0 

d0 

• d5 • color aus 

Tabelle 

8D1A 


Jsr 

-156(a6) 

—> SetBPen 


8D1E 


■oveq 

/28,d1 

dl 

> 40 


8D20 


add.l 

d3,d1 

dl 

= d3+40 =■ y 


8D22 


■oveq 

/46,d0 

d0 

- 70 


8D24 


add.l 

d4,d0 

d0 

* d4+70 • X 


8D26 


■ovea.l 

a3.a1 

a1 

-> RastPort 


8D28 


Jsr 

-F0(a6) 

— 

Hove 


8D2C 


bra.s 

FE8CF8 

—> Loop 


8D2E 







8D2E 

FE802E 

copl.b 

/FE.d3 

d3 =■ $FE 


8D32 


bne.s 

FE8D56 

nein: -> 


8D34 


■oveq 

/0,d4 

d4 

- 0 


8D36 


Dove.b 

(a2)+.d4 

d4 

- nächstes Byte 

aus Tabelle 

8D38 


■oveq 

/0,d3 

d3 

• 0 


8D3A 


■ove.b 

(a2)+,d3 

d3 

» nächstes Byte 

aus Tabelle 

8D3C 


■ovea.l 

a3,a1 

a1 

-> RastPort 


8D3E 


■ove.1 

d5.d0 

d0 

• d5 ” color aus 

Tabelle 

8D40 


Jsr 

-156(a6) 

—> SetAPen 


8D44 


■oveq 

/28,d1 

dl 

- 40 


8046 


add.l 

d3.d1 

dl 

- d3+40 = y 


8048 


■oveq 

/46,d0 

d0 

- 70 


804A 


add.l 

d4,d0 

d0 

* d4+70 - X 


804C 


■oveq 

/1.d2 

d2 

> Mode = 1 


8D4E 


■ovea.l 

a3.a1 

a1 

-> RastPort 


8030 


Jsr 

-14A(a6) 

—> Flood 


8054 


bra.s 

FE8CF8 

—> Loop 


8056 







8056 

FE8D56 

■ove.l 

d3,d4 

d4 

= d3 


8058 


■ove.l 

d5,d3 

d3 

• d5 


805A 


■oveq 

/28,d1 

d1 

" 40 


805C 


add.l 

d3,d1 

d1 

- d3+40 • y 


805E 


■oveq 

4'46,d0 

d0 

» 70 


8060 


add.l 

d4.d0 

d0 

= d4+70 = X 


8062 


■ovea.l 

a3,a1 

a1 

■> RastPort 


8064 


Jsr 

-F6(a6) 

—> Draw 


8068 


bra.s 

FE8CF8 

—> Loop 



8D6A 
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8D6A 

FE8D6A 

lea 

24C(pc),a2 

a2 

» 

FE8B20 

8D6E 


novea. 1 

a;,a1 

a1 

> 

RastPort 

8D70 


moveq 

/5.d0 

d0 


color 

8D72 


Jsr 

-156(a6) 

—) 

SetAPen 

8D76 

FE8D76 

aove.v 

(a2)+,d0 

d0 

* 

nächstes Hort aus Tabelle 

8D78 


bnl.s 

FE8DB8 

Bit 

15 gesetzt: -> 

8D7A 


move.b 

d0,18(a5) 

rp_Hask ln RastPort eintragen 

8D7E 


moveq 

/0.d4 

d4 

= 

0 

8D80 


move.b 

(a2)+,d4 

d4 

- 

nächstes Byte aus Tabelle 

8D82 


moveq 

/0,d5 

d5 

* 

0 

8D84 


move.b 

(a2)+,d5 

d5 

- 

nächstes Byte aus Tabelle 

8D86 


moveq 

/46.d2 

d2 


70 

8D88 


moveq 

/0,d0 

d0 

- 

0 

8D8A 


move.b 

(a2)+,d0 

d0 


nächstes Byte aus Tabelle 

8D8C 


add.l 

d0,d2 

d2 

• 

d0+70 - X 

8D8E 


moveq 

/28,dJ 

dj 

- 

40 

8D90 


move.b 

(a2)+,d0 

d0 

■= 

nächstes Byte aus Tabelle 

8D92 


add.l 

d0,dj 

d3 

= 

d0+40 = y 

8D94 


move .V 

d4,d0 

d0 

■= 

d4 

8D96 


mulu 

d9,d0 

d0 

• 

d0 mal d5 = Zähler 

8D98 


lea 

408(a4),a0 

a0 

-> 

Platz für Schablone 

8D9C 


bra.s 

FE8DA0 

—> 


8D9E 







8D9E 

FE8D9E 

move.v 

(a2)+.(a0)+ 

Schablone aus Tabelle erzeugen 

8DAe 

FE8DA0 

dbra 

d0,FE8D9E 




8DA4 


lea 

408(a4),a0 

a0 

-> 

Schablone 

8DA8 


moveq 

/0,d0 

d0 

- 

SrcX • 0 

8DAA 


add.l 

d4,d4 

d4 verdoppeln 

8DAC 


move.l 

d4,d1 

d1 

- 

SrcMod 

8DAE 


movea.1 

a;,a1 

a1 

-> 

RastPort 

8088 


Isl .w 

/3.d4 

d4 

• 

SizeX 

8DB2 


Jsr 

-24(a6) 

—> 

iltTemplate 

8DB6 


bra.s 

FE8D76 

—> 


8DB8 







8DB8 

FE8DB8 

movea. 1 

8(a3),a0 

a0 - 

■> 

VlewPort 

8DBC 


lea 

-248(pc),a1 

a1 

= 

FE8B76 = Color-Tabelle 

8DC8 


moveq 

/4,d0 

d0 

- 

4 - Zahl der Worte 

8DC2 


Jsr 

-C0(a6) 

—> 

LoadRGB4 

8DC6 


Jsr 

-10E(a6) 

—> 

JaltTOF 

8DCA 


movem.l 

(a7)+,d2-d5/a2-a3/a6 
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8DCE 


rts 


8DD0 




8DD0 

» 

Graphik löschen 


8DD0 




8DD0 

FE8DD0 

■ove.l a6,-(a7) 

a6 retten 

8DD2 


tst.l 4(a5) 

GfxBase gespeichert? 

8DD6 


beq.s FE8E16 

Nein: fertig -> 

8DD8 


tst.l 8(a$) 

VlewPort-Zelger vorhanden? 

8DDC 


beq.s FE8E0A 

Nein: fertig -> 

8DDE 


move.w /100.DHACON 

BltPlane DMA sperren 

8DE6 


■ovea.l 4(a5),a6 

a6 GfxBase 

8DEA 


suba.l a1,a1 

a1 0 

8DEC 


Jsr -DE(a6) 

—> LoadVlew 

8DF0 


novea.l 8(a$),a0 

a0 -> VlewPort 

8DF4 


jsr -21C(a6) 

—> FreeVPortCopLlsts 

8DF8 


aovea.l 0<a5),a6 

a6 := SysBase 

8DFC 


novea.l 8(a?),a1 

a1 -> VlewPort Memory 

8E00 


nove.l /$E9A,d0 

d0 :* 24218 * Anzahl Bytes 

8E06 


Jsr -D2(a6) 

—> FreeMea 

8E0A 

FE8E0A 

aovea.l 0(a5),a6 

a6 := SysBase 

8E0E 


novea.l 4(a5),a1 

a1 :> GfxBase 

8E12 


Jsr -19E(a6) 

—> CloseLlbrary 

8E16 

FE8E16 

aovea.l (a7)+,a6 

a6 wiederherstellen 

8E18 


rts 


8E1A 




8EIA 


DC.U 0 



8E1C i- Graphik-Tabelle für Hand mit Horkbench-Dlsk 

8E1C 

8E1C ; Alle Koordinatenwerte beziehen sich auf x0 • 40, - 70 

8E1C 


8E1C FE8E1C 

DC.B 

FF, 

,01.23, 

.0B 

1 

; Move, Color, x, ; 

1 

8E20 

DC.B 

3A, 

,0B.3A, 

,21.71, 

,21.71, 

,0B,7D.0B, 

,88,16,88 

.5E.7F,5E 

8E50 

DC.B 

7F, 

,58,40, 

,58,3E, 

,56.35, 

,36.34,38, 

,2D,38,2D 

.41,23.48 

8E40 

DC.B 

2J, 

,08 






8E42 

DC.B 

FE, 

,02.25, 

,45 


; Flood, Color, x. 

y 

8E46 

DC.B 

FF, 

,01,21, 

,48 


; Move, Color, x, ; 

i 

8E4A 

DC.B 

21, 

,0A,7E, 

,0A,8A, 

,16.8A, 

,5F.56,5F 

.56,64,52 

.6C.4E,71 

8E5A 

DC.B 

4A, 

,74,44, 

,7D,3C, 

,81,5C, 

,8C,0A,8C 

,0A,6D,09 

,6D,09.51 

8E6A 

DC.B 

0D, 

,48.14, 

,45.15, 

,41.19 

,3A.1E.37 

.21,36,21 

.36,IE.38 

8E7A 

DC.B 

1A, 

,5A.16, 

,41.15, 

,45.0E, 

,48.0A,51 

,0A,6C,0B 

,6D,06,8B 


; Draw 


j Draw 
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8E8A 

DC.B 

28.8B,28.76.50.76.54.72,54,5F.32,5C.52.52,41.45 


8E9A 

DC.B 

41.59.3E.37.3B.37.3E. 

3A,3E.41,3D,42.36.42.33.3F 


8EAA 

DC.B 

2A,46.1E,4C.12.55.12. 

54.1E,4B.1A.4A,17,47.2A,46 


8EBA 

DC.B 

1E,4A,21.48 



8EBE 

DC.B 

FF,01,52.3D 

Hove, Color, x, y 


8EC2 

DC.B 

34,36,3C,37,3D,3A.3D 

41.36.41.32,3D ; Draw 


8ECE 

DC.B 

FF.01.35.5C 

Hove, Color, x, y 


8ED2 

DC.B 

33.52,42.45.42.39.7D 

39.7D.5E.34.5E,33.5A ; Draw 


8EE0 

DC.B 

FF.01,3C.0B 

Nove, Color, x, y 


8EE4 

DC.B 

6F.0B.6F,20,3C.20.5C 

0B ; Draw 


8EEC 

DC.B 

FF.01.60.0E 

Hove, Color, x, y 


8EF0 

DC.B 

6B,0E.6B,1C.60.1C.60 

0E ; Drav 


8EF8 

DC.B 

FE.05,3E,1F 

Flood, Color, x, y 


8EFC 

DC.B 

FF,01.62.0F 

Hove, Color, x, y 


8F00 

DC.B 

69.0F.69.1B.62,1B.62 

0F : Draw 


8F08 

DC.B 

FE,02.63.1A 

Flood, Color, x, y 


8F0C 

DC.B 

FF.01,2F.39 

Move, Color, x, y 


8F10 

DC.B 

32.39.32.3B.2F.3F.2F 

39 ; Draw 


8F18 

DC.B 

FF,01.29,8B 

Hove, Color, x, y 


8F1C 

DC.B 

29,77,30,77.35.72,35 

69,39,68.41,68,41.60,45.72 ; 

Draw 

8F2C 

DC.B 

49.72.49.74.43,7D.3B 

80,3B,8B.29.8B 


8F58 

DC.B 

FF.01.35.5F 

Hove, Color, x, y 


8F5C 

DC.B 

35.64,3A.61,35.5F 

Draw 


8F42 

DC.B 

FF.01,39,62 

Hove, Color, x, y 


8F46 

DC.B 

35,64,35.5F,4A,5F.40 

69.3F.69.41,67.3C.62.39.62 ; 

Draw 

8F56 

DC.B 

FF,01.4E.5F 

Hove, Color, x, y 


8F9A 

DC.B 

55.5F.55.64.51.6C.4E 

70.49.71 ,46.71 .43.6D,43.6A ; 

Draw 

8F6A 

DC.B 

4E,5F 



8F6C 

DC.B 

FF,01,44,6A 

Hove, Color, x, y 


8F70 

DC.B 

44. 6D. 46.70,48,70.4c 

6F,4D,6C.49,69.44,6A : Draw 


8F7E 

DC.B 

FF,01.36,68 

Hove, Color, x, y 


8F82 

DC.B 

3E,6A.40.67.3C,63.39 

63.36,65.36.68 ; Draw 


8F8E 

DC.B 

FF,01,7E,0B 

Hove, Color, x, y 


8F92 

DC.B 

89.16,89,5E 

Draw 


8F96 

DC.B 

FE,01,22,08 

Flood, Color, x, y 


8F9A 

DC.B 

FE.01,3B.0B 

Flood, Color, x, y 


8F9E 

DC.B 

FE,01,61.0F 

Flood, Color, x, y 


8FA2 

DC.B 

FE.01,6A,1B 

Flood, Color, x, y 


8FA6 

DC.B 

FE,01,70.0F 

Flood, Color, x, y 


8FAA 

DC.B 

FE.01,7E,5E 

Flood, Color, x, y 
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eFAE 

DC.B 

FE,01,4B,60 

Flood, Color, x, y 


8FB2 

DC.B 

FE,01,2E,59 

Flood, Color, x, y 


8FB6 

DC.B 

FF, FF 

Anfangsaarke für Muster 

8FB8 FE8FB8 

DC.U 

2 

rp_Mask 


8FBA 

DC.B 

04,08,59,54 

SizeX, SlzeY, DestX, 

DestY 

8FBE 

DC.U 

1001,8220,4050,0004 

Muster 2 'Anlga' 


8FC6 

DC.U 

0404,8889,1210,5010 



8FCE 

DC.U 

0408,2448,1090,1020 



8FD6 

DC.U 

0410,1042,0510,1040 



8FDE 

DC.U 

0420,0050,2690,1080 



8FE6 

DC.U 

0440,0484,0900,1100 



8FEE 

DC.U 

0480,4960,4208,1200 



8FF6 

DC.U 

0500,0685,8404,1400 



8FFE 

DC.U 

1 

rp_Mask 


we 

DC.B 

04,08,59,54 

SlzeX, SizeY, DestX, 

DestY 

9804 

DC.U 

1F9F,FE5F,FF77,FE7C 

Muster 1 'Anlga* 


900C 

DC.U 

070C,EF8F,1E71,DC50 



9014 

DC.U 

07F8,E7CE,1CF5,1FE0 



901C 

DC.U 

0751,F5CE,1DF6,1CC0 



9024 

DC.U 

0760,05DC,5FFC,1D80 



902C 

DC.U 

07C0,879C,5F78,1F00 



90J4 

DC.U 

0780,CF78,7E78,1E00 



90JC 

DC.U 

0700,FEFF,FC7C,1C00 



9044 

DC.U 

2 

rp_Mask 


9046 

DC.B 

05,07,4A,4A 

SizeX, SlzeY, DestX, 

DestY 

904A 

DC.U 

C707,8F8C,5000 

Muster ’Hork’ 


9050 

DC.U 

6605,18CE,7000 



9056 

DC.U 

5E65,18CF,F000 



905C 

DC.U 

6667,18CD,B000 



9062 

DC.U 

C65B,8F8C,5000 



9068 

DC.U 

0600,000C,5000 



906E 

DC.U 

0700,000C,5000 



9074 

DC.U 

2 

rp_Mask 


9076 

DC.B 

05,07,46,40 

SizeX, SlzeY, DestX, 

DestY 

907A 

DC.U 

C71F,18C7,C5E0 

Muster ’bench’ 


9080 

DC.U 

C651,98C0,6650 



9086 

DC.U 

C601,98CF,E650 



908C 

DC.U 

CE51,98CC,6670 



9092 

DC.U 

761F,0FC7,C5B0 



9098 

DC.U 

0600,0000,0050 
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909E 

DC.H 

0700,0000,0078 


90A4 

DC.U 

1 

: rp_Mask 

9046 

DC.B 

05,0A,5C,64 

; SlzeX, SlzeY, DestX, DestY 

90AA 

DC.H 

0F9F,C1C0,0FC0 

: Muster ’V 1.2’ 

90B0 

DC.H 

0707,05C0.1FE0 


90B6 

DC.U 

070E,07C0,5CF0 


90BC 

DC.U 

071C,01C0,0070 


90C2 

DC.U 

07J8,01C0,00F0 


90C8 

DC.U 

0770,01C0,05E0 


90CE 

DC.U 

07E0,01C0,0780 


90D4 

DC.U 

07C0,01C0,0F00 


90DA 

DC.U 

0780,07F5,3FF0 


90E0 

DC.U 

0700,07FJ,3FF0 


90E6 

DC.U 

FFFF 

; Endeoarke 

90E8 




90E8 

Ende VOH 

strap »»»»»•»»»»»»»»»»»»»»)•«»*«»»»»*»» 
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DOS - Bootblock 


OCSO DOS-Bootblock 


0000 DOS000 

DC.B 

•DOS’,0 

0004 



0004 

DC.L 

B2CAD60E 

0008 

DC.L 

370 

000C 



0000 DOS00C 

lea 

18(pc),a1 

0010 

Jsr 

-60(a6) 

0014 

tst.l 

d0 

0016 

beq.s 

DOS022 

0018 

Bovea. 

,1 d0,a0 

001A 

Bovea. 

,1 16(a0).a0 

001E 

Boveq 

/0,d0 

0020 DOS020 

rts 


0022 



0022 DOS022 

Boveq 

/-1,d0 

0024 

bra.s 

DOS020 

0026 



0026 DOS026 

DC.B 

'dos.llbrary',0 

0072 




j Kennnarke für DOS-Bootblock 
; bb_CheckSuB 

; bb_DosBlock (reserviert) 

: a1 := DOS026 -> ‘dos.llbrary’ 

; —> FindResident 
; gefunden? 

; nein: Fehler -> 
i a0 := d0 -> DOS-Modul 
: a0 -> DOS-Inltlallslerungsroutlne 
; d0 0 « ok-Flag 

; d0 := -1 - Fehlerflag 
; —> rts 
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Amiga. Bootrom 



0000 » 




0000 » 


AMIGA. BOOTROM 


0000 * 





0000 




0000 F80000 

DC.U 

1111 


0002 




0002 

Jmp 

F8008A : —> 


0008 




0008 

DC.L 

0 


000C F8001C 

DC.L 

-1 


0010 

DC.L 

-1 


0014 

DC.L 

-1 


0018 

DC.U 

19 


001A 

DC.U 

9 


001C 




001C 

DC.B 

0D,0A,0A,’CoiBiiiodore AMIGA ROM Bootstrap’,0D,0A 


005E 

DC.B 

'Copyright (C) 1985. Commodore Amiga, Inc.’,0D,0A 


0069 

DC.B 

'All rights reserved.’,0D,0A,0 



0080 F80080 

reset 


0082 

movea. 1 

F80004,a0 

0088 

J">P 

(a0) 

008A 



008A F8008A 

moveq 

/0,d0 

008C 

move.l 

/A,d1 

0092 

move.b 

/2.BFE201 

009A 

move.b 

/2.BFE001 

00A2 F800A2 

dbra 

d0,F800A2 

00A6 

bchg.b 

/I,BFE001 


; aO F80e8A 
. —> 

: Zeitzähler := 0 
; Blinkzähler := 10 
; CIÄA ODRA: LED-Ausgang setzen 
; CIAA PRA: LED dunkel 
; Warteschlelfe ca. 0.1 s 
; LED Hell-Dunkel-Wechsel 
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00AE 


dbra 

dl .F800A2 

00B2 


reset 


00B4 


move.w 

/444,DFF180 

00BC 


lea 

40000,a7 

00C2 


lea 

-C4<pc),a0 

00C6 


cmpa. 1 

/F00000,a0 

00CC 


beq.s 

F000EE 

00CE 


cmpl .w 

/1111.F00000 

00D6 


bne.s 

F800EE 

00D8 


move.w 

/FFF,DFF180 

00E0 


lea 

F800EE,a5 

00E6 


movea.l 

F00004,a0 

00EC 


Jmp 

(30) 

00EE 




00EE 

F800EE 

move.b 

/3.BFE201 

00F6 


move.b 

/2,BFE001 

00FE 


movea.l 

/DFF000,a4 

0104 


move.w 

/7FFF.d6 

0108 


move.w 

d6,9A(a4) 

010C 


move.w 

d6,9C(a4) 

0110 


move.w 

d6,96(a4) 

0114 


lea 

-FA(pc),a0 

0118 


lea 

F80122.a5 

011E 


bra 

F80284 

0122 




0122 

F80122 

lea 

FC0000,a0 

0128 


cmpl.l 

/11114EF9.(a0) 

012E 


bne.s 

F80144 

0130 


move. 1 

/10000,d1 

0136 


lea 

6(pc).a5 

013A 


bra 

F802A8 

013E 




013E F8013E 

tst.l 

d0 

0140 


beq 

F80262 

0144 

F80144 

lea 

-146(pc),a0 

0148 


cmpa.1 

/F80000,a0 

014E 


bne.s 

F80196 

0150 


lea 

FC0000,a2 

0156 


lea 

FFFFFE,a3 

015C 


lea 

6(pc),a5 


: 10 mal wiederholen -> 

; COLOR00: Bildschirm dunkelgrau 
; Stack-Zeiger initialisieren 
: a0 ;= F80000 
; Anfang bei $F00000? 

; Ja: -> 

; ROM-Kennzelchen bei $F00000? 

: Nein: -> 

; COLOR00: Bildschirm weiß 
; a5 := Rückkehradresse 
; a0 :■= Zieladresse 
: —> 

: CIAA ODRA: LED- u. OVL = Ausgang 
; CIAA PRA: LED dunkel 
; a4 Spezialchip-Basisadresse 
; d6 :» Löschmaske 
; INTENA: Alle Bits löschen 

J INTREQ: Alle Bits löschen 

; DMACON: Alle Bits löschen 

! a0 :» F8001C -> IDStrlng 

: a5 := Rückkehradresse 
: —> Jmp (a5) 

j a0 := Klckstart-ROM-Anfang 
; steht dort ’llir und ’Jmp’? 
j Nein: Kickstart nicht geladen -> 
; Langwort-Zähler Initialisieren 
; a5 := F8015E = Rückkehradresse 
. —y Prüfsumme berechnen 

: Prüfsumme o.k.? 

: Ja: Exec starten -> 

; a0 :- ROM-Anfangsadresse 
; ROH-Anfang bei F80000? 

; Nein: -> 

; a2 := Anfang für RAM-Test 
; a5 := Ende für RAM-Test 
; a5 := F80164 = Rückkehradresse 
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0160 

bra 

F802C6 

—> RAM-Test Klckstart-Berelch 

0164 




0164 F80164 

tst.l 

d0 

RAH-Test o.k.? 

0166 

beq.s 

F80196 

Ja: -> 

0168 

nove.v 

/CC,DFF180 

COLOR00: Blldschlra blaugrün 

0170 

lea 

C(pc),a0 

a0 :» F8017E -> Fehlertext 

0174 

lea 

F80192,a5 

a5 := Zieladresse 

017A 

bra 

F80284 

—> jap (a5) 

017E 




017E F8017E 

DC.B 

0D,0A,’raa-roB-fallure’,0D,0A,0 

0192 




0192 F80192 

bra 

F80080 

—> Neustart 

0196 




0196 F80196 

lea 

0,a2 

a2 := Anfang für RAM-Test 

019A 

lea 

JFFFE.aJ 

aj :» Ende für RAH-Test 

01A0 

lea 

6(pc),a5 

a5 :* F801A8 * Rückkehradresse 

01A4 

bra 

F80360 

—> RAH-Test für Chip Meaory 

01A8 




01A8 F801A8 

tst.l 

d0 

RAH-Test o.k.? 

01AA 

beq.s 

F801DC 

Ja: -> 

01AC 

aove.v 

/C0.DFF180 

COLOR00: Blldschlra grün 

01B4 

lea 

C(pc),a0 

a0 :• F801C2 -> Fehlertext 

0168 

lea 

F801D8.a5 

a9 :« Zieladresse 

01BE 

bra 

F80284 

—> Jap (a5) 

01C2 




01C2 F801C2 

DC.B 

0D,0A,’local-raa-fallure’,0D,0A,0 

01D8 




01D8 F801D8 

bra 

F80080 

—> Neustart 

01DC 




01DC F801DC 

lea 

6(pc),a5 

a5 :» F801E4 = Rückkehradresse 

01E0 

bra 

F807A2 

—> Audlo-Test alt Melodie 

01E4 




01E4 F801E4 

novea.v 

/8,a0 

a0 -> Anfang der Ausnahaevektoren 

01E8 

aove.v 

/2D,d1 

dl :• Zahl der Vektoren 

01EC 

lea 

A(pc),a1 

a1 := F801F8 -> Ausnahmeroutine 

01F0 F801F0 

move.l 

a1,(a0) + 

Ausnahaevektoren /2 bis /$2F 

01F2 

dbra 

dl ,F801F0 

einrichten 

01F6 

bra. s 

F80226 

—> 

01F8 




01F8 F801F8 

aove.v 

/CC0,DFF180 

COLOR00: Bildschirm gelb 
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lea 

C(pc),a0 

a0 :■= F8020E -> Fehlertext 

0204 

lea 

F80222,a3 

a3 Zieladresse 

020A 

bra 

F80284 

—> Jmp (a5) 

020E 




020E F8e20E 

DC.B 

0D,0A,’boot-exceptlon',0D,0A,0.0 

0222 




0222 F80222 

bra 

F80080 

—> Neustart 

0226 




0226 F80226 

Bove.v 

/0.DFF180 

COLOR00: Bildschirm schwarz 

022E 

Jsr 

F80A18 

—> Dlsk-Boot 

0234 

tst.l 

d0 

o.k.? 

0236 

beq.s 

F80262 

Ja: -> 

0238 

lea 

C(pc),a0 

a0 := F80246 -> Fehlertext 

023C 

lea 

F8023E,a3 

a3 Zieladresse 

0242 

bra 

F80284 

—> Jmp (a5) 

0246 




0246 F80246 

DC.B 

0D,0A,’disk-boot-falledt?’,0D,0A,0,0 

023E 




023E F8023E 

bra 

F80080 

—> Neustart 

0262 




0262 F80262 

nove.v 

/0.DFF180 

COLOR00: Bildschirm schwarz 

026A 

lea 

F80000,a1 

a1 :» Boot-RON-Anfangsadresse 

0270 

Dovea. 1 

FC0004,a0 

a0 :• Exec-Startadresse 

0276 

Boveq 

/0,d0 

d0 0 

0278 

Bove.l 

F80280,-(a7) 

Befehlszeilen auf Stack legen 

027E 

Jnp 

(a7) 

—> und aufrufen 

0280 




0280 F80280 

Bove.v 

d0,(a1) 

Boot-RON abschalten 

0282 

Jmp 

(a0) 

—> Exec starten 

0284 




0284 F80284 

J“P 

(a5) 

—> 

0286 




0286 

DC.W 

0 


0288 




0288 ;- 

Prüfsumme wortvelse berechnen (nicht gerufen) 

0288 




0288 

nove. 1 

d1,d2 

dl .w > Uortzähler lo 

028A 

svap 

d2 

d2.w ' Uortzähler hl 

028C 

clr. 1 

d0 

d0 als Summenregister löschen 

028E 

bra.s 

F80298 

—> 
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0290 



0290 F80290 

add.w 

(a0)+,d0 

0292 

bcc.s 

F80298 

0294 

addi .w 

/1,d0 

0298 F80298 

dbra 

d1,F80290 

029C 

dbra 

d2,F80290 

02A0 

not.w 

d0 

02A2 

bne.s 

F802A6 

02A4 

clr.l 

d0 

02A6 F802A6 

J®P 

(a5) 

02AS 



02A8 :- 

PrUfsumme langwortwei 

02A8 



02A8 F802A8 

move.l 

d1,d2 

02AA 

svap 

d2 

02AC 

clr.l 

d0 

02AE 

bra.s 

F802BA 

02B0 



02B0 F802B0 

add.l 

(a0)+,d0 

02B2 

bcc.s 

F802BA 

02B4 

addi.l 

/1,d0 

02BA F802BA 

dbra 

d1,F802B0 

02BE 

dbra 

d2,FB02B0 

02C2 

not.l 

d0 

02C4 

jmp 

(a5) 

02C6 



02C6 ;- 

RAH-Test 1 

02C6 



02C6 FB02C6 

move.l 

aj,d5 

02C8 

sub.l 

a2,d3 

02CA 

Isr.l 

/2,d5 

02CC 

move.l 

d3,d4 

02CE 

clr.l 

d0 

0200 

Bove.v 

/10,d0 

0204 

addq.b 

/4,d0 

0206 

move.l 

/AAAAAAAA,d1 

02OC 

movea. 1 

a2,a0 

02OE F802OE 

move.l 

dl ,(a0) 

02E0 

move.l 

(a0)+,d2 

02E2 

cmp.l 

d1,d2 


; Dort in Summenregister addieren 
; kein Übertrag: -> 
i Übertrag addieren 
; wiederholen, bis Uortzähler 
; abgelaufen 
i Ergebnis invertieren 
! ergibt nicht Null: -> 

; dü :> 0 

: —> Rückkehr 

berechnen 

i d1.w = Languortzähler lo 
; d2.v • Langvortzähler hl 
; d0 als Suzmenreglster lösche 
. —> 

: Langvort ln Register addieren 
: kein übertrag: -> 

; Übertrag addieren 
; wiederholen, bis 
: LangwortzShler abgelaufen 
; Ergebnis invertieren 
: —> RQcksprung 


dj := aj * Endadresse 
- Anfangsadresse = Länge ln Bytes 
d3 :* Länge ln Langworten 

d4 := Länge in Langworten (statisch) 

d0 :=■ 0 

d0 := 16 

d0 := 20 * Fehlerkode 

dl :* Bitmuster 10101010. .. 

a0 a2 Anfangsadresse 

Testmuster speichern 

und wieder lesen, Adresse erhöhen 

gelesen wie gespeichert? 
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02E4 

bne 

F805E6 

02E3 

dbra 

d5,F802DE 

02EC 

move.w 

/20,d0 

02F0 

addq.b 

/4.d0 

02F2 

move.l 

/55555555,d1 

02F8 

novea. 1 

a2,a0 

02FA 

move.l 

d4,d5 

02FC F802FC 

move.l 

d1,(a0) 

02FE 

move.l 

(a0)+.d2 

0500 

cmp.l 

dl ,d2 

0502 

bne 

F805E6 

0506 

dbra 

d5,F802FC 

050A 

move .w 

/40,d0 

050E 

move.l 

/77777777.d1 

0514 F80514 

rol.l 

/I ,d1 

0516 

movea. 1 

a2,a0 

0518 

move.l 

d4,d5 

051A F8051A 

move.l 

dl,(a0)+ 

051C 

dbra 

d5,F8051A 

0520 

movea. 1 

a2,a0 

0522 

move. 1 

d4,d5 

0524 F80524 

move.l 

(a0),d2 

0526 

cmp.l 

dl ,d2 

0528 

bne 

F805E6 

052C 

dbra 

d5.F80524 

0550 

tst.l 

dl 

0552 

bmi.s 

F80514 

0554 

move .w 

/60,d0 

0558 

move.l 

/88888888,d1 

055E F8055E 

rol. 1 

/I ,d1 

0540 

movea.1 

a2,a0 

0542 

move.l 

d4.d5 

0544 F80544 

move. 1 

dl ,(a0) + 

0546 

dbra 

d5,F80544 

054A 

movea.1 

a2,a0 

054C 

move.l 

d4,d5 

054E F8054E 

move.l 

(a0),d2 

0550 

cmp.l 

d1,d2 

0552 

bne 

F805E6 

0556 

dbra 

d5.F8054E 


Nein: RAH-Fehler -> 

bis Endadresse wiederholen -> 

d0 := 52 

d0 :* 56 - Fehlerkode 

dl := Bltmuster 01010101... 

a0 a2 ■■ Anfangsadresse 

d5 :* d4 • Länge ln Langworten 

Testnuster speichern 

und wieder lesen 

gelesen wie gespeichert? 

Nein: RAH-Fehler -> 
bis Endadresse wiederholen -> 
d0 := 64 >= Fehlerkode 
dl := Bltmuster 01110111... 
Testmuster 1 Bit nach links rotieren 
a0 :• a2 ■ Anfangsadresse 
d5 := d4 = Länge ln Langworten 
Testmuster ln Speicher schreiben 
bis Endadresse wiederholen -> 
a0 :- a2 - Anfangsadresse 
d5 := d4 = Länge ln Langworten 
Langwort aus Speicher lesen 
gelesen wie gespeichert? 

Nein: RAH-Fehler -> 

bis Endadresse wiederholen -> 

Testmuster schon 4 Bits rotiert? 

Nein: wiederholen -> 

d0 := 96 = Fehlerkode 

dl := Bitmuster 10001000... 

Testmuster 1 Bit nach links rotieren 

a0 := a2 = Anfangsadresse 

d5 := d4 * Länge in Langworten 

Testmuster ln Speicher schreiben 

bis Endadresse wiederholen -> 

a0 := a2 = Anfangsadresse 

d5 := d4 = Länge ln Langworten 

Langwort aus Speicher lesen 

gelesen wie gespeichert? 

Nein: RAH-Fehler -> 

bis Endadresse wiederholen -> 
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B55A 

tst.l 

dl 

B55C 

bpl.s 

F8033E 

B35E 

bra.s 

F8B36A 

B36B 



B36B :- 

RAM-Test 2 

B36B 



B56B F8036B 

Bove. 1 

a3.d3 

B362 

sub.l 

a2.d3 

0364 

Isr.l 

/2.d3 

0366 

Bove.l 

d3.d4 

0368 

clr.l 

dB 

036a F8B36A 

Bove.v 

/70.d0 

036E 

Bovea. 1 

a2,aB 

0370 

Bove.l 

d4.d3 

0372 F80372 

Bove.l 

aB,(a0)+ 

0374 

dbra 

d3.F80372 

0378 

Bovea. 1 

a2,aB 

037A 

Bove.l 

d4,d3 

037C F8B37C 

Bove.l 

a0,d1 

037E 

Bove.l 

(a0)+,d2 

0380 

CBp.l 

dl ,d2 

0382 

bne 

F803E6 

0386 

dbra 

d3.F8037C 

038A 

Bove.v 

/8B,d0 

038E 

Bovea. 1 

a2,aB 

0390 

Bove.1 

d4.d3 

0392 F80392 

Bove.l 

a0,d1 

0394 

not.l 

dl 

0396 

Bove.l 

d1.(a0)+ 

0398 

dbra 

d3.F80392 

039C 

Bovea. 1 

a2,aB 

039E 

Bove.l 

d4,d3 

03A0 F803A0 

Bove.l 

aB.dl 

03A2 

not.l 

dl 

03A4 

move. 1 

(a0)+,d2 

B3A6 

CBp.l 

dl .d2 

B3A8 

bne 

F803E6 

03AC 

dbra 

d3,F803A0 

B3BB 

move .V 

/90.d0 

03B4 

BOvea. 1 

a2,aB 


Testmuster schon 4 Bits rotiert? 
Nein: wiederholen -> 

—> RAM-Test 2 


dj := a3 • Endadresse 
- Anfangsadresse = Lange in Bytes 
dJ := Länge in Langworten 
d4 := Länge in Langworten (statisch) 
dB B 

dB := 112 = Fehlerkode 
aB := a2 = Anfangsadresse 

d5 d4 • Länge in Langvorten 

Aktuelle Adresse abspeichern 
bis Endadresse wiederholen -> 
aB a2 • Anfangsadresse 

dJ d4 • Länge in Langworten 

dl := aB « aktuelle Adresse 
d2 Langwort aus Speicher 
gelesen wie gespeichert? 

Nein: RAM-Fehler -> 
bis Endadresse wiederholen -> 
dB 128 - Fehlerkode 
aB :■= a2 - Anfangsadresse 

dJ d4 - Länge ln Langworten 

dl := aB > aktuelle Adresse 
dl invertieren 
und abspeichern 
bis Endadresse wiederholen -> 
aB := a2 « Anfangsadresse 
dJ :« d4 - Länge ln Langworten 
dl aB - aktuelle Adresse 
dl invertieren 
d2 Langwort aus Speicher 
gelesen wie gespeichert? 

Nein: RAM-Fehler -> 
bis Endadresse wiederholen -> 
dB := 144 = Fehlerkode 
aB := a2 = Anfangsadresse 
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0766 

clr.1 

dl 

d1 0 

07B8 

move.l 

d4.d3 

d3 d4 * Länge in Langworten 

07BA 

Isl.l 

/2.d3 

d3 :• Länge in Bytes 

07BC 

Bove.l 

d3,d5 

d5 :* d3 ■ Länge ln Bytes 

07BE 

svap 

d5 

d5.w Länge ln Bytes (Übertrag) 

0JC0 F803C0 

move.b 

d1,(a0)+ 

Speicher byteweise löschen 

0JC2 

dbra 

d3.F803C0 

wiederholen, bis d3.w * -1 -> 

07C6 

dbra 

d5,F803C0 

wiederholen, bis dS.w = -1 -> 

05CA 

movea. 1 

a2,a0 

a0 := a2 = Anfangsadresse 

0JCC 

move.l 

d4.d3 

d3 :• d4 “ Länge ln Langworten 

0JCE 

subq.l 

/1.d3 

minus 1 

05D0 

Isl.l 

/l.d3 

d3 := Länge ln Worten 

05D2 

move.l 

d3,d5 

d5 := d3 * Länge ln Worten 

0JD4 

svap 

d5 

dS.w Länge in Worten (Übertrag) 

0JD6 F80JD6 

Dove.v 

(a0)+,d2 

d2 := Wort aus Speicher 

03D8 

cnp.v 

d1.d2 

gelesen wie gespeichert? 

03DA 

bne.s 

F803E6 

Nein: RAH-Fehler -> 

03DC 

dbra 

d3.F803D6 

wiederholen, bis d3.w = -1 -> 

07E0 

dbra 

d5.F803D6 

wiederholen, bis d5.w ■= -1 -> 

05E4 

clr.l 

d0 

d0 := 0 * ok-Flag 

07E6 F807E6 

suba.v 

/4,a0 

a0 -> erste Fehlerstelle 

07EA 

Jmp 

(a5) 

—> Rücksprung 

0JEC 




0JEC i- 

RAM-Test 3 (zerstörungsfrei 

nicht gerufen) 

0JEC 




03EC 

movem. 1 

d2-d3.-(a7) 

Register retten 

03F0 

move.l 

a3.d3 

d3 :■= a3 = Endadresse 

05F2 

sub.l 

a2,d3 

- Anfangsadresse - Länge in Bytes 

0JF4 

Isr.l 

/2.d3 

d3 := Länge in Langworten 

03F6 

movea.1 

a2,a0 

a0 a2 • Anfangsadresse 

05F8 

clr.l 

d0 

d0 0 

05FA 

nove.v 

/A0,d0 

d0 := 160 = Fehlerkode 

0JFE F805FE 

move.l 

a0,d1 

dl a0 = aktuelle Adresse 

0400 

move.l 

(a0),d2 

Speicher-Langwort in d2 retten 

0402 

move.l 

d1.(a0) 

dl ln Speicher schreiben 

0404 

cmp.l 

(a0),d1 

und mit Speicherinhalt vergleichen 

0406 

bne 

F8041C 

ungleich: RAM-Fehler -> 

040A 

not.l 

dl 

dl Invertieren 

040C 

move.l 

d1.(a0) 

wieder ln Speicher schreiben 

040E 

cmp.l 

(a0).d1 

und mit Spelcherinhalt vergleichen 
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bne 

F8041C 

ungleich: RAM-Fehler -> 

0414 


nove.l 

d2,(a0)+ 

Speicherinhalt wiederherstellen 

0416 


dbra 

d5.F805FE 

bis 

Endadresse wiederholen -> 

041A 


clr.l 

d0 

d0 

• 0 - ok-Flag 

041C 

F8041C 

movem.l 

(a7)+,d2-d5 

Register wiederherstellen 

0420 


Jnp 

(a5) 

—> Rücksprung 

0422 






0422 


Hardware-Test 1 (nicht gerufen) 


» 


0422 






0422 


nove.v 

/1FF.DFF096 

DMACON: Bits 0 bis 8 löschen 

042A 


move.v 

/4000,DFF09A 

INTENA: Interrupts sperren 

0452 


clr.l 

d0 

d0 

» 0 

0454 


Bove.v 

/101,d0 

d0 

» 257 = Fehlerkode 

0458 


oove.v 

/7FFF.DFF09E 

ADKCON: Alle Bits löschen 

0440 


oove.v 

DFF010,d4 

d4 

- ADKCONR 

0446 


capl .V 

/0,d4 

Alle Bits • 0? 

044A 


bne 

F80790 

Nein: Fehler -> 

044E 


move.v 

/E,d5 

d5 

* 14 * Ulederholungszähler 

0452 


move.v 

/8000,d2 

d2 

- $8000 - SBT-Blt 

0456 


move.v 

/1.d5 

d5 

- 1 - Testbit 

045A 

F8045A 

move.v 

d5.d4 

d4 

- d5 

045C 


add.v 

d2.d5 

Bit 

51 einaddieren 

045E 


move.v 

d5,DFF09E 

ADKCON: Bit (d4) setzen 

0464 


cmp.v 

DFF010,d4 

d4 = ADKCONR? 

046A 


bne 

F88790 

Nein: Fehler -> 

046E 


Isl .V 

/1.d5 

Testbit um 1 nach links schieben 

0470 


move.v 

/7FFF.DFF09E 

ADKCON: Alle Bits löschen 

0478 


dbra 

d5,F8045A 

wiederholen, bis 15 Bits getestet - 

047C 


move.v 

/102,d0 

d0 

- 258 = Fehlerkode 

0480 


move.v 

/FFFF.DFF09E 

ADKCON: Alle Bits setzen 

0488 


move.v 

DFF010,d4 

d4 

= ADKCONR 

048E 


cnpl .V 

/7FFF,d4 

Bits 0 bis 14 gesetzt? 

0492 


bne 

F80790 

Nein: Fehler -> 

0496 


move.v 

/E,d5 

d5 

“ 14 - Ulederholungszähler 

049A 


move .V 

/1.d5 

d5 

- 1 = Testbit 

049E 

F8049E 

move .V 

/7FFF,d4 

d4 

- Testiaske 

04A2 


eor.v 

d5.d4 

Testbit löschen 

04A4 


move.v 

d5.DFF09E 

ADKCON: Testbit löschen 

04AA 


cmp.v 

DFF010,d4 

ADKCONR . d4? 

0480 


bne 

F80790 

Nein: Fehler -> 
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04B4 

Isl .V 

/1,d5 

04B6 

Bove.v 

/FFFF,DFF09E 

04BE 

dbra 

d5,F8049E 

04C2 

Bove.v 

/7FFF,DFF09E 

04CA 

Bove.v 

/105,d0 

04CE 

Bove.v 

DFF00E,d1 

04D4 

fflove.v 

DFF00E,d1 

04DA 

andi.v 

/7FFF,d1 

04DE 

cmpl .V 

/0,d1 

04E2 

bne 

F80790 

04E6 

Dove .V 

/104,d0 

04EA 

BOve.v 

/7FF,DFF096 

04F2 

move.v 

DFF002,d4 

04F8 

andi.V 

/7FF,d4 

04FC 

CBpi .v 

/0,d4 

0500 

bne 

F80790 

0504 

Dove.v 

/A,d5 

0508 

Bove.v 

/8000,d2 

050C 

Bove.v 

/I ,d5 

0510 F80510 

Bove.v 

d5,d4 

0512 

add.v 

d2,d5 

0514 

Dove.v 

d5,DFF096 

051A 

move.v 

DFF002,d1 

0520 

andl.V 

/7FF,d1 

0524 

CDp.V 

d1,d4 

0526 

bne 

F80790 

052A 

Isl .V 

/1,d5 

052C 

Bove.v 

/7FF,DFF096 

0554 

dbra 

d5,F80510 

0558 

Bove.v 

/105,d0 

055C 

Bove.v 

/87FF,DFF096 

0544 

move.v 

DFF002,d4 

054A 

andl.V 

/7FF,d4 

054E 

cmpl .V 

/7FF,d4 

0552 

bne 

F80790 

0556 

move.v 

/A,d5 

055A 

move.v 

/1,d5 

055E F8055E 

move .V 

/7FF,d4 

0562 

eor.v 

d5,d4 

0564 

move.v 

d5,DFF096 


Testbit ua 1 nach links schieben 
ADKCON; Alle Bits setzen 
wiederholen, bis 15 Bits getestet -> 
ADKCON: Alle Bits löschen 
d0 := 259 ' Fehlerkode 
CLXDAT lesen und löschen 
dl := CLXDAT 

Bit 15 (unbenutzt) löschen 
Bits 0 bis 14 gelöscht? 

Nein: Fehler -> 

d0 := 260 = Fehlerkode 

DMACON: Bits 0 bis 10 löschen 

d4 DMACONR 

Bits 11 bis 15 löschen 

Alle Bits gelöscht? 

Nein: Fehler -> 

d5 := 10 * Hlederholungszähler 

d2 := $8000 - SET-Blt 

d5 := 1 * Testbit 

d4 := dj * Testbit 

SET-Blt einaddieren 

DMACON: Testbit setzen 

dl :* DMACONR 

Bits 11 bis 15 löschen 

Testbit gesetzt? 

Nein: Fehler -> 

Testbit ua 1 nach links schieben 

DMACON: Bits 0 bis 10 löschen 

wiederholen, bis 11 Bits getestet -> 

d0 :• 261 » Fehlerkode 

DMACON: Bits 0 bis 10 setzen 

d4 DMACONR 

Bits 11 bis 15 löschen 

Bits 0 bis 10 gesetzt? 

Nein: Fehler -> 

d5 := 10 = Hlederholungszähler 
dj := 1 = Testbit 
d4: Bits 0 bis 10 setzen 
Testbit löschen 
DMACON: Testbit löschen 
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056A 

■ove.v 

DFF002,d1 

0570 

andl .V 

/7FF,d1 

0574 

cmp.v 

d1.d4 

0576 

bne 

F80790 

057A 

Isl.v 

/1.d5 

057C 

Bove.v 

/87FF,DFF096 

0584 

dbra 

d5,F8055E 

0588 

BOve.v 

/7FF,DFF096 

0590 

Bove.v 

/106,d0 

0594 

aove.v 

/7FFF,DFF09A 

059C 

BOve.v 

/7FFF,DFF09C 

05A4 

Bove.v 

DFF01E,d4 

05AA 

cnpl .V 

/0.d4 

05AE 

bne 

F80790 

05B2 

Dove.v 

/A,d5 

05B6 

move.v 

/8000,d2 

05BA 

Dove.v 

/I ,d5 

05BE F805BE 

iBove.v 

d5.d4 

05C0 

add.v 

d2,d5 

05C2 

Bove.v 

d5,DFF09C 

05C8 

Bove.v 

DFF01E,d1 

05CE 

CBp.V 

d1,d4 

05D0 

bne 

F80790 

05D4 F805D4 

Isl.u 

/1,d5 

05D6 

cnpl.V 

/4,d5 

05DA 

beq.s 

F805D4 

05DC 

capi.v 

/8,d5 

05E0 

beq.s 

F805D4 

05E2 

cmpi .V 

/20,d5 

05E6 

beq.s 

F805D4 

05E8 

Bove.v 

/7FFF,DFF09C 

05F0 

dbra 

d5,F805BE 

05F4 

Bove.v 

/107,d0 

05F8 

move.v 

«FFF,DFF09C 

0600 

Bove.v 

DFF01E,d4 

0606 

cmpl .v 

/5FFF,d4 

060A 

bne 

F80790 

060E 

Bove.v 

/A,d5 

0612 

move.v 

/1,d5 

0616 F80616 

BOve.v 

/5FFF,d4 


dl DHACONR 

Bits 11 bis 15 löschen 

Testbit gelöscht? 

Nein: Fehler -> 

Testbit um 1 nach links schieben 

DHACON: Bits 0 bis 10 setaen 

wiederholen, bis 11 Bits getestet -> 

DHACON; Bits 0 bis 10 löschen 

d0 262 “= Fehlerkode 

INTENA; Alle Bits löschen 

INTREQ: Alle Bits löschen 

d4 ;= INTREQR 

Alle Bits gelöscht? 

Nein: Fehler -> 

d5 := 10 • Wiederholungszähler 
d2 := $8000 = SET-Blt 
dj := 1 = Testbit 
d4 :- dj - Testbit 
SET-Blt einaddieren 
INTREQ: Testbit setzen 
dl := INTREQR 
Testbit gesetzt? 

Nein: Fehler -> 

Testbit UB 1 nach links schieben 

Bit 2 

Obergehen 

Bit 5 

übergehen 

Bit 5 

übergehen 

INTREQ: Alle Bits löschen 

wiederholen, bis 11 Bits getestet -> 

d0 265 - Fehlerkode 

INTREQ: Bits 0 bis 15 setzen 

d4 := INTREQR 

Bits 0 bis 15 gesetzt? 

Nein: Fehler -> 

d5 ;= 10 =■ Ulederholungszähler 
d5 := 1 = Testbit 
d4 := Testmaske 
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061A 

eor.v 

d5.d4 

061C 

sove.v 

d5,DFF09C 

0622 

Dove.v 

DFF01E.d1 

0628 

cmp.v 

d1,d4 

062A 

bne 

F80790 

062E 

Isl .V 

/1.d5 

0650 

move.v 

/BFFF,DFF09C 

0658 

dbra 

d5.F80616 

065C 

iBOve.w 

/7FFF.DFF09C 

0644 

DOve.v 

/108,d0 

0648 

nove.v 

/7FFF,DFF09A 

0650 

nove.v 

DFF01C.d4 

0656 

cnpi .V 

/0,d4 

065A 

bne 

F80790 

065E 

move.v 

/D.d5 

0662 

move.v 

/8000,d2 

0666 

Bove.v 

/1,d5 

066A F8066A 

ffiove.v 

d5.d4 

066C 

add.v 

d2,d5 

066E 

oove.v 

d5.DFF09A 

0674 

Dove.v 

DFF01C,d1 

067A 

Cffip.V 

d1.d4 

067C 

bne 

F80790 

0680 

Isl.v 

/1.d5 

0682 

nove.v 

/7FFF,DFF09A 

068A 

dbra 

d5,F8066A 

068E 

nove.v 

/109,d0 

0692 

nove.v 

«FFF,DFF09A 

069A 

nove.v 

DFF01C.d4 

06A0 

cnpi.v 

/5FFF,d4 

06A4 

bne 

F80790 

06A8 

nove.v 

/D.d5 

06AC 

nove.v 

/1,d5 

06B0 F806B0 

nove.v 

/5FFF.d4 

06B4 

eor.v 

d5.d4 

06B6 

nove.v 

d5,DFF09A 

06BC 

nove.v 

DFF01C.d1 

06C2 

cnp.v 

dl ,d4 

06C4 

bne 

F80790 

06C8 

Isl.v 

/1,d5 


Testbit löschen 
INTREQ: Testbit löschen 
dl INTREQR 
Testbit gelöscht? 

Nein: Fehler -> 

Testbit UD 1 nach links schieben 
INTREQ: Bits 0 bis 15 löschen 
wiederholen, bis 11 Bits getestet 
INTREQ: Alle Bits löschen 
d0 :» 264 - Fehlerkode 
INTENA: Alle Bits löschen 
d4 := INTENAR 
Alle Bits gelöscht? 

Nein: Fehler -> 

d5 :■ 15 • Hlederholungszähler 
d2 $8000 - SET-Blt 
d5 :- 1 - Testbit 
d4 :- d5 » Testbit 
SET-Blt einaddieren 
INTENA: Testbit setzen 
dl :- INTENAR 
Testbit gesetzt? 

Nein: Fehler -> 

Testbit UB 1 nach links schieben 

INTENA: Alle Bits löschen 

wiederholen, bis 14 Bits getestet -> 

d0 :• 265 • Fehlerkode 

INTENA: Bits 0 bis 15 setzen 

d4 :» INTENAR 

Bits 0 bis 15 gesetzt? 

Nein: Fehler -> 

d5 15 • Hlederholungszähler 

d5 :■= 1 = Testbit 

d4 :• Testmaske 

Testbit löschen 

INTENA: Testbit löschen 

dl := INTENAR 

Testbit gelöscht? 

Nein: Fehler -> 

Testbit um 1 nach links schieben 
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06CA 

nove.v 

/BFFF.DFF09A 

06D2 

dbra 

d5.F806B0 

06D6 

move.v 

/4000.DFF09A 

06DE 

nove.v 

/FCFC,DFF036 

06E6 

Bove.v 

DFF00A,d2 

06EC 

sove.v 

DFF00C,d3 

06F2 

fflove.v 

/10B.d0 

06F6 

capl.V 

/FCFC.d2 

06FA 

bne 

F80790 

06FE 

Dove.v 

/10C.d0 

0702 

cspl.V 

/FCFC,d3 

0706 

bne 

F80790 

070A 

fflove.v 

/0,DFF036 

0712 

Dove.v 

DFF00A,d2 

0718 

fflove.v 

DFF00C.d3 

071E 

fflove.v 

/10D,d0 

0722 

Cfflpl .V 

/0,d2 

0726 

bne 

F80790 

072A 

DOve.v 

/10E,d0 

072E 

cnpi.V 

/0,d3 

0732 

bne 

F80790 

0736 

fflove.v 

/A8A8,DFF036 

073E 

fflove.v 

DFF00A.d2 

0744 

nove.v 

DFF00C,d3 

074A 

fflove.v 

/10F,d0 

074E 

Cfflpl .V 

/A8A8,d2 

0752 

bne 

F80790 

0756 

fflove.v 

/110,d0 

075A 

Cfflpl.V 

/A8A8.d3 

075E 

bne 

F80790 

0762 

DOve.v 

/5454.DFF036 

076A 

fflove.V 

DFF00A.d2 

0770 

fflove.v 

DFF00C,d3 

0776 

fflove.v 

/111,d0 

077A 

cnpl.V 

/5454.d2 

077E 

bne 

F80790 

0782 

fflove.v 

/112,d0 

0786 

Cfflpl.V 

/5454,d3 

078A 

bne 

F80790 

078E 

clr.1 

d0 


INTENA; Bits 0 bis 13 setzen 
wiederholen, bis 14 Bits getestet -> 
INTENA: Alle Interrupts sperren 
JOYTEST: Alle Hauszähler setzen 
d2 := JOY0DAT 
d3 := J0Y1DAT 
d0 := 267 = Fehlerkode 
JOY0DAT ok? 

Nein: Fehler -> 

d0 := 268 = Fehlerkode 

J0Y1DAT ok? 

Nein: -> 

JOYTEST: Alle Hauszähler löschen 
d2 := JOY0DAT 
d3 := J0Y1DAT 
d0 :» 269 = Fehlerkode 
JOY0DAT ok? 

Nein: Fehler -> 

d0 := 270 = Fehlerkode 

J0Y1DAT ok? 

Nein: Fehler -> 

JOYTEST: Bltmuster 101010... schreiben 

d2 := JOY0DAT 

d3 := J0Y1DAT 

d0 := 271 = Fehlerkode 

JOY0DAT ok? 

Nein: Fehler -> 

d0 := 272 = Fehlerkode 

J0Y1DAT ok? 

Nein: Fehler -> 

JOYTEST: Bitmuster 010101... schreiben 

d2 := JOY0DAT 

d3 := J0Y1DAT 

d0 := 273 - Fehlerkode 

JOY0DAT ok? 

Nein: Fehler -> 

d0 := 274 * Fehlerkode 

J0Y1DAT ok? 

Nein: Fehler -> 
d0 :• 0 = ok-Flag 
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0790 F80790 

sove.v 

/1FF.DFF096 

0798 

move.v 

/4000,DFF09A 

07A0 

Jmp 

(a5) 

07AZ 



07AZ :- 

Audlo-Test mit Melodie 

07AZ 



07AZ F807AZ 

movem. 1 

dZ-dJ/aZ-a3.-(a7) 

07A6 

link 

a6,/0 

07AA 

move.v 

/1FF.DFF096 

07BZ 

move.v 

/8Z00,DFF096 

07BA 

move.v 

/4000,DFF09A 

07CZ 

clr.l 

dZ 

07C4 

lea 

F80A14,a0 

07CA F807CA 

move.v 

-(a0).-(a7) 

07CC 

addq .V 

^1 ,dZ 

07CE 

tst.w 

(a0) 

07D0 

bne.s 

F807CA 

07DZ 

subq.v 

/I .dZ 

07D4 

move.v 

dZ,-(a7) 

07D6 

movea.l 

a7,aZ 

07D8 

move.v 

/0,d0 

07DC 

move.V 

/5.dJ 

07E0 

move.v 

/FF00,dZ 

07E4 

Jsr 

F8095A 

07EA 

move.v 

/CA,dl 

07EE 

movea.l 

a2,a3 

07F0 

Jsr 

F80974 

07F6 

Jsr 

F80988 

07FC 

move.v 

/J,d0 

0800 

move.v 

/5.d5 

0804 

move.v 

/FFFF.dZ 

0808 

Jsr 

F8095A 

080E 

move.v 

/87,d1 

081Z 

movea.l 

aZ,a3 

0814 

Jsr 

F80974 

081A 

Jsr 

F80988 

08Z0 

move.v 

/0.d0 

08Z4 

move.V 

/5.d3 

08Z8 

move.v 

/Z00,dZ 

08ZC 

Jsr 

F8095A 


DHACON: Bits 0 bis 8 löschen 
INTENA: Alle Interrupts sperren 
—> Rücksprung 


Register retten 

DMACON: Bits 0 bis 8 löschen 
DMACON: Bit 9 setzen 
INTENA: Alle Interrupts sperren 
d2 0 « Hortzähler 
a0 -> Sanple-Tabelle 
Sample-Daten in Stack kopieren 
Zähler Inkrenentieren 
Ende der Tabelle? 

Nein: -> 

Zähler um 1 erniedrigen 

und ebenfalls ln Stack schreiben 

aZ := a? -> Sauple-Daten im Stack 

d0 := 0 = Audio-Kanal 

d3 := 5 = Anstiegsdauer 

dZ $FF00 = Halte-Dauer 0.1 s 

—> Audlo-Adressen definieren 

dl := Z0Z ergibt Frequenz Z86 Hz 

aj := aZ -> Sample-Daten im Stack 

—> Audlo-Parameter setzen 

—> Klang ausgeben 

d0 := 5 = Audio-Kanal 

dj := 5 = Anstiegsdauer 

dZ := $FFFF = Haltedauer 0.1 s 

—> Audlo-Adressen definieren 

dl := 1J5 ergibt Frequenz 4Z8 Hz 

aj := aZ -> Sample-Daten im Stack 

—> Audio-Parameter setzen 

—> Klang ausgeben 

d0 := 0 = Audio-Kanal 

dj := 5 = Anstiegsdauer 

dZ :- $Z00 = Haltedauer 0.8 ms 

—> Audlo-Adressen definieren 
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0832 

Bove.v 

/A0.d1 

0836 

Bovea.l 

a2,a3 

0838 

Jsr 

F80974 

083E 

Jsr 

F80988 

0844 

BOve.v 

/3.d0 

0848 

BOve.v 

/5.d3 

084C 

Bove.v 

/FF00,d2 

0850 

Jsr 

F8095A 

0856 

BOve.v 

/CA,dl 

085A 

Bovea.l 

a2,a3 

085C 

Jsr 

F80974 

0862 

jsr 

F80988 

0868 

Bove.v 

/0,d0 

086C 

Bove.v 

/5.d3 

0870 

Bove.v 

/FF00,d2 

0874 

jsr 

F8095A 

087A 

Bove.v 

/B4,d1 

087E 

Bovea.l 

a2,a3 

0880 

jsr 

F80974 

0886 

Jsr 

F80988 

088C 

BOve.v 

/I .d0 

0890 

Bove.v 

/5.d5 

0894 

BOve.v 

/FF00,d2 

0898 

jsr 

F8095A 

089E 

move.v 

/A0,d1 

08A2 

Bovea.l 

a2,a3 

08A4 

jsr 

F80974 

08AA 

Jsr 

F80988 

08B0 

Bove.v 

/2.d0 

08B4 

move.v 

/5.d3 

08B8 

move.v 

/FF00,d2 

08BC 

jsr 

F8095A 

08C2 

move.v 

/97,d1 

08C6 

fflovea.l 

a2,a3 

08C8 

jsr 

F80974 

08CE 

jsr 

F80988 

08D4 

move.v 

/1,d0 

0808 

move.v 

/5.d3 

08DC 

move.v 

/FF00,d2 

08E0 

jsr 

F8095A 


dl := 160 ergibt Frequenz 361 Hz 
a3 := a2 -> Sample-Daten im Stack 
—> Audlo-Paraneter setzen 
—> Klang ausgeben 
d0 := 3 • Audlo-Kanal 
d3 := 5 = Anstiegsdauer 
d2 := $FF00 = Haltedauer 0.1 s 
—> Audlo-Adressen definieren 
dl := 202 ergibt Frequenz 286 Hz 
a3 := a2 -> Sample-Daten Im Stack 
—> Audlo-Parameter setzen 
—> Klang ausgeben 
d0 := 0 = Audlo-Kanal 

d3 := 5 * Anstiegsdauer 

d2 $FF00 = Haltedauer 0.1 s 
—> Audlo-Adressen definieren 
dl 180 ergibt Frequenz 321 Hz 
a3 :> a2 -> Sample-Daten Im Stack 

-> Audlo-Parameter setzen 

—> Klang ausgeben 

d0 1 ■= Audlo-Kanal 

d3 := 5 - Anstiegsdauer 

d2 := $FF00 <= Haltedauer 0.1 s 

—> Audlo-Adressen definieren 

dl 160 ergibt Frequenz 361 Hz 

a3 := a2 -> Sample-Daten Im Stack 

—> Audlo-Parameter setzen 

—> Klang ausgeben 

d0 := 2 = Audlo-Kanal 

d3 := 5 = Anstiegsdauer 

d2 := $FF00 = Haltedauer 0.1 s 

—> Audlo-Adressen definieren 

dl := 151 ergibt Frequenz 382 Hz 

a3 := a2 -> Sample-Daten Im Stack 

—> Audlo-Parameter setzen 

—> Klang ausgeben 

d0 := 1 = Audlo-Kanal 

d3 := 5 = Anstiegsdauer 

d2 := $FF00 - Haltedauer 0.1 s 

—> Audlo-Adressen definieren 
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08E6 

move.v /A0,d1 

08EA 

movea.l a2,a3 

08EC 

jsr F80974 

08F2 

jsr F80988 

08F8 

move.w /2,d0 

08FC 

move.w /5,d3 

0900 

move.w /FF00,d2 

0904 

Jsr F8095A 

090A 

move.w /B4,d1 

090E 

movea.l a2,a3 

0910 

jsr F80974 

0916 

Jsr F80988 

091C 

move.w /1,d0 

0920 

move .w /5, d3 

0924 

move.w /FF00.^2 

0928 

Jsr F8095A 

092E 

move.w /B4,d1 

0932 

movea.l a2,a3 

0934 

Jsr F80974 

093A 

Jsr F80988 

0940 

move.w /1FF.DFF096 

0948 

move.w /4000,DFF09A 

0950 

clr.l d0 

0952 

unlk a6 

0954 

movea.l (a7)+,d2-d3/a2-a5 

0958 

Jmp (a5) 

095A 


095A :- 

Audlo-Adressen definieren 

095A 


095A F8095A 

move.w d0,d1 

095C 

move.w /10,d0 

0960 

nulu d1,d0 

0962 

movea.l /DFF0A0,a0 

0968 

lea 0(a0,d0.w),a0 

096C 

move.w /1,d0 

0970 

Isl.w d1,d0 

0972 

rts 

0974 


0974 ;- 

Audlo-Parameter setzen 

0974 



dl := 160 ergibt Frequenz 361 Hz 
a3 := 3.2 -> Sample-Daten im Stack 
—> Audlo-Parameter setzen 
—> Klang ausgeben 
d0 := 2 * Audlo-Kanal 

d3 := 5 ” Anstiegsdauer 

d2 $FF00 > Haltedauer 0.1 s 
—> Audlo-Adressen definieren 
dl := 180 ergibt Frequenz 321 Hz 
a3 := a2 -> Sample-Daten im Stack 
—> Audlo-Parameter setzen 
—> Klang ausgeben 
d0 := 1 = Audlo-Kanal 

d3 5 • Anstiegsdauer 

d2 $FF00 - Haltedauer 0.1 s 
—> Audlo-Adressen definieren 
dl := 180 ergibt Frequenz 321 Hz 
a3 3.2 -> Sample-Daten im Stack 
---> Audlo-Parameter setzen 
—> Klang ausgeben 
DHACON: Bits 0 bis 8 löschen 
INTENA: Interrupts sperren 
d0 0 

Stackbereich auflasen 
Register ulederherstellen 
—> Rücksprung 


dl d0 =■ Audlo-Kanal-Nummer 
d0 :* 16 

d0 16»Kanalnummer 
a0 -> AUD0LC: Kanal 0 Datenzeiger 
a0 -> Kanal (d0) Datenzeiger 
d0 := 1 

d0 Kanalnummer-Bit 
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0974 F80974 

sove.v 

(a3)+,4(a0) 

AUOxLEN Zahl der Saaple-Horte 

0978 

Dove.l 

a3,0(a0) 

AUDxLOC :• Anfang der Audlo-Oaten 

097C 

Bove.v 

d1,6(a0) 

AUOxPER :« Saapllng-Periode 

0980 

Bove.v 

/0,8(a0) 

AUDxVOL 0 

0986 

rts 



0988 




0988 :- 

Klang ausgeben 


0988 




0988 F80988 

■ove.l 

d0,-(a7) 

d0 (Kanalnunner) retten 

098A 

orl .w 

/8000,d0 

SET-Bit setzen 

098E 

Bove.v 

d0,DFF096 

DMACON: Audio Channel OHA Enable 

0994 

BOve.v 

dj.dl 

dl := d3 = Anstiegsdauer 

0996 

subq.v 

/I .d1 

UB 1 vermindern 

0998 

Bovea.v 

/0,a1 

a1 :» 0 - Lautstärke 

099C F8099C 

aove.v 

a1,8(a0) 

AUDxVOL a1 

09A0 

addq.v 

/I ,a1 

Lautstärke erhöhen 

09A2 

move.v 

/20,d0 

Zähler für 50 us setzen 

09A6 F809A6 

dbra 

d0.F809A6 

50 US warten -> 

09AA 

dbra 

d1,F8099C 

wiederholen, bis dl * -1 -> 

09AE F809AE 

dbra 

d2,F809AE 

Haltezelt warten -> 

09B2 

aove.v 

dj.dl 

dl ;> d3 ° Anstiegszeit 

09B4 F809B4 

aove.v 

d1,8(a0) 

AUDxVOL dl 

09B8 

aove.v 

/80,d0 

Zähler für 200 us setzen 

09BC F809BC 

dbra 

d0,F809BC 

200 US warten -> 

09C0 

dbra 

d1,F809B4 

wiederholen, bis dl • -1 -> 

09C4 

nove.l 

(a7)+,d0 

d0 (Kanalnunmer) wiederherstellen 

09C6 

andi .V 

/F,d0 

SET-Blt löschen 

09CA 

aove.v 

d0,DFF096 

DMACON: Audio DMA abschalten 

0900 

rts 



0902 




0902 :- 

Sanple- 

Tabelle für Sinuskurve 

0902 




0902 

DC.U 

0 


0904 

OC.B 

0,00,19.25.31.30.47 

51.5B,63.6A,71,76,7A,7E,7F 

09E4 

OC.B 

7F.7F,7E,7A,76.71,6A.63.5B,51,47,30,31.25.19.00 

09F4 

OC.B 

0,F5.E7,OB.CF.C4,B9,AF,A5,9O,96,8F,8A,86,82.81 

0A04 

OC.B 

81.81,82.86,8A,8F.96.9D.A5,AF.B9,C4.CF,DB,E7,F3 

0A14 F80A14 

OC.L 

0 


0A18 




0A18 :- 

Dlsk-Boot 
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KA18 


0A18 F80A18 

link 

a6,/-14 

0A1C 

movem. 1 

d2-d5/a2,-(a7) 

0A20 

clr.b 

-1(a6) 

0A24 

move.l 

/10000.-(a7) 

0A2A 

clr.l 

-(a7) 

0A2C 

pea 

-14(a6) 

0A30 

Jsr 

F80BE0 

0A;6 

move.l 

/F000,d5 

0A5C 

move.l 

d5.-(a7) 

0A3E 

Jsr 

F811AC 

0A44 

move.l 

/F00000,d2 

0A4A 

cmpi. 1 

/F80000,d2 

0AB0 

lea 

10(a7),a7 

0A$4 

bne.s 

F80A64 

0A56 

move.l 

/F40000,d4 

0A5C 

move.l 

/F40004,d0 

0A62 

bra.s 

F80A70 

0A64 



0A64 F80A64 

move.l 

/FC0000,d4 

0A6A 

move.l 

/FC0004,d0 

0A70 F80A70 

pea 

-14(a6) 

0A74 

Jsr 

F80E94 

0A7A 

pea 

-14(a6) 

0A7E 

Jsr 

F80C4E 

0A84 

bclr.b 

/6,-1J(a6) 

0A8A 

movea. 1 

/FC0000,a2 

0A90 

clr.l 

-(a7) 

0A92 

move.1 

a2,-(a7) 

0A94 

pea 

-14(a6) 

0A98 

Jsr 

F81890 

0A9E 

move.l 

d0.d5 

0AA0 

lea 

14<a7),a7 

0AA4 

bne 

F80AE8 

0AA8 

moveq 

/0,d2 

0AAA F80AAA 

move.v 

d2,d0 

0AAC 

movea. 1 

/F80BDC.a0 

0AB2 

move .b 

0(a0,d0.u),d0 

0AB6 

move.w 

d2,d1 

0AB8 

movea. 1 

a2,a0 


20 Bytes auf Stack reservieren 
Register retten 
Graphik-Ausgabeflag löschen 
Anfang des Disk-Lesepuffers 
Laufwerknummer = 0 
Adresse des Stackrahmens 
—> Disklesen vorbereiten 
d5 := Anfang der Copperliste 
auf Stack 

—> Graphikausgabe vorbereiten 

; $F80000 = $F00000? 
j Stackzeiger korrigieren 
j Nicht gleich (d.h.: immer): -> 

-- > 

; d4 :* Anfang des Kickstart-RAN 
: d0 Startadresse von Exec 
; Adresse des Stackrahmens 
; —> Motor einschalten, 1 s warten 
; Adresse des Stackrahmens 
j —> Lesekopf auf Spur 0 setzen 

; a2 := Anfang des Kickstart-RAM 
; Sektornummer 0 auf Stack 
j Zieladresse für Einlesen 
; Adresse des Stackrahmens 
i —> Sektor 0 in Speicher lesen 
; d3 := d0 - Fehlerkode 
j Stackzeiger korrigieren 
j Fehler ist aufgetreten: -> 

; d2 :- 0 

; d0 := d2 * Vergleichszeiger 
: a0 -> ’KICK’ 

; d0.b :• Zeichen aus ’KICK’ 

; dl := d2 - Vergleichszeiger 
: a0 -> Anfang des gelesenen Sektors 
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elABA 

cmp.b 

0(a0,d1.v).d0 

Steht dort auch ’KICK’? 

0ABE 

bne 

F80AE8 

Nein: Falsche Diskette -> 

0AC2 

addq. 1 

/1,d2 

Vergleichszeiger erhöhen 

0AC4 

Doveq 

/4.d0 

d0 Länge des Wortes 'KICK' 

0AC6 

cap.l 

d2,d0 

Ende des Wortes erreicht? 

0AC8 

bgt.s 

F80AAA 

Nein: Vergleich fortsetzen -> 

0ACA 

move.l 

/FC0000,d4 

d4 := Zieladresse für Disklesen 

em 

Boveq 

/I .d2 

d2 := Sektornummer 

0AD2 F80AD2 

Bove. 1 

d2,-(a7) 

Sektornummer und 

0AD4 

aove.l 

d4.-(a7) 

Zieladresse auf Stack 

0AD6 

pea 

-H(a6) 

Adresse des Stackrahmens 

0ADA 

Jsr 

F81890 

—> Sektor in Speicher lesen 

0AE0 

Bove. 1 

d0.d5 

d3 d0 = Fehlerkode 

0AE2 

lea 

C(a7).a7 

Stackzeiger korrigieren 

0AE6 

beq.s 

F80B0A 

Kein Fehler aufgetreten: -> 

0AE8 F80AE8 

pea 

-14(a6) 

Adresse des Stackrahmens 

0AEC 

Jsr 

F80EC8 

—> Motor ausschalten 

0AF2 

move.l 

d5.-(a7) 

d5 -> Anfang der Copperliste 

0AF4 

pea 

-1(a6) 

Adresse des Graphik-Ausgabeflags 

0AF8 

pea 

-14(a6) 

Adresse des Stackrahmens 

0AFC 

Jsr 

F80BJ8 

—> Graphik ausgeben, Dlskvechsel 

0B02 

lea 

10(a7),a7 

Stackzeiger korrigieren 

0B06 

bra 

F80A70 

—> neuer Einleseversuch 

0B0A 




0B0A F80B0A 

addi.l 

/200,d4 

Zieladresse um Sektorlänge erhöhen 

0B10 

addq. 1 

/1.d2 

Sektornummer um 1 erhöhen 

0B12 

cmpl.l 

/200,d2 

Schon 512 Sektoren eingelesen? 

0B18 

ble.s 

F80AD2 

Nein: Einlesen fortsetzen -> 

0B1A 

pea 

-14(a6) 

Adresse des Stackrahmens 

0B1E 

Jsr 

F80EC8 

—> Motor ausschalten 

0B24 

Bove.v 

/7FFF,DFF096 

DMACON: Alle Bits löschen 

0B2C 

BOveq 

/0,d0 

d0 0 

0B2E 

addq.1 

/4.a7 

Stackzeiger korrigieren 

0B;0 

Boveoi. 1 

(a7)+.d2-d5/a2 

Register wiederherstellen 

0B34 

unlk 

a6 

Stackrahmen freigeben 

0B36 

rts 



0B38 




0B38 !- 

Graphik ausgeben, auf Dlskuechsel warten 

0B38 




0B38 F80BJ8 

Bovem. 1 

d2-d4/a2,-(a7) 

Register retten 
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0BJC 

move.l 

14(a7),d3 

0B40 

movea. 1 

18(a7),a2 

0B44 

move.l 

1C(a7),d2 

0B48 

move .w 

/100,d4 

0B4C 

move.l 

dJ,-(a7) 

0B4E 

Jsr 

F80D80 

0B54 

cmpl .b 

/1.(a2) 

0B58 

addq.l 

/4,a7 

0BBA 

beq.s 

F80B6A 

0B5C 

move.l 

d2,-(a7) 

0BBE 

Jsr 

F813A0 

0B64 

move.b 

/1,(a2) 

0B68 

addq.l 

/4,a7 

0B6A F80B6A 

Jsr 

F81JD6 

0B70 

move.w 

d4,d2 

0B72 

orl .w 

/8000,d2 

0B76 

move .w 

d2,DFF096 

0B7C F80B7C 

moveq 

/0,d0 

0B7E 

move.b 

BFE001,d0 

0B84 

moveq 

«11111011,dl 

0B86 

or.l 

dl ,d0 

0B88 

moveq 

/FF,dl 

0B8A 

cmp. 1 

d0,d1 

0B8C 

sne 

d2 

068E 

neg.b 

d2 

0B90 

beq.s 

F80B7C 

0B92 F80B92 

moveq 

/0,d2 

0B94 

move. b 

BFE001,d2 

0B9A 

moveq 

/1[11111011 ,d0 

0B9C 

or.l 

d0,d2 

0B9E 

moveq 

/FF,dl 

0BA0 

cmp.l 

d2,d1 

0BA2 

beq.s 

F80BC4 

0BA4 

move.l 

/7A120,-(a7) 

0BAA 

Jsr 

F80DB4 

0BB0 

eorl.b 

/2,BFD100 

06B8 

move.l 

d5,-(a7) 

0BBA 

Jsr 

F80DD4 

0BC0 

addq.l 

/8,a7 

0BC2 

bra.s 

F80B92 


dj Adresse des Stackrahmens 
a2 -> Graphlk-Ausgabeflag 
d2 -> Anfang der Copperliste 
d4 := Bit Plane DMA Enable Bit 
Adresse des Stackrahmens Qbergeben 
—> Laufwerk 0 anw&hlen 
Graphlk-Ausgabeflag gesetzt? 
Stackzeiger korrigieren 
Graphlk-Ausgabeflag gesetzt: -> 
Anfang der Copperllste übergeben 

-> Farben setzen, BltMap erzeugen 

Graphlk-Ausgabeflag setzen 

Stackzeiger korrigieren 

—> Harten auf Blldwechsel 

d2 := d4 = Bit Plane DMA Enable Bit 

SET-Blt elnodern 

DMACON: Bit Plane DMA freigeben 

d0 0 

d0 CIAA PRA 

DSKCHANGE-Blt := 0 
Alle anderen Bits auf 1 setzen 
Alle Bits ln dl setzen 
Har DSKCHANGE-Blt gesetzt? 

Henn nicht, dann d2 -1 
d2 := 1, wenn keine Disk Im Laufwerk 
sonst warten, bis Disk entnommen -> 
d2 := 0 

d2 := CIAA PRA 
DSKCHANGE-Blt := 0 
Alle anderen Bits ln d2 setzen 
Alle Bits ln dl setzen 
Disk Im Laufwerk? 

Ja: -> 

Hartezahl B00000: 1 s 
—> warten 

CIAB PRB DSKDIREC-Blt fllppen 
Adresse des Stackrahmens übergeben 
—> Kopfschritt (DSKCHÄNGE-Update) 
Stackzeiger korrigieren 
—> warten, bis Disk Im Laufwerk 
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0BC4 



0BC4 F80BC4 

move.l 

d5.-(a7) 

0BC6 

Jsr 

F80DA6 

0BCC 

Bove.v 

d4,DFF096 

0BD2 

addq.l 

/4.a7 

0BD4 

movem.1 

(a7)+,d2-d4/a2 

0BD8 

rts 


0BDA 



0BDA 

DC.U 

0 

0BDC 



0BDC F80BDC 

DC.B 

•KICK’ 

06E0 



0BE0 ;- 

Disklesen vorbereiten 

0BE0 



0BE0 F80BE0 

movem. 1 

d2/a2-a5,-(a7) 

0BE4 

movea.l 

10(a7),a0 

0BE8 

move.l 

14(a7),d1 

0BEC 

move.l 

18(a7).d2 

0BF0 

movea.l 

/DFF000,a5 

0BF6 

movea.l 

/F80EF0.a1 

0BFC 

movea.l 

a0,a2 

0BFE 

Boveq 

/11.d0 

0C00 F80C00 

move.b 

(a1)+,(a2)+ 

0C02 

dbra 

d0,F80C00 

0C06 

andl.b 

/K11000011,BFE201 

0C0E 

move.b 

/FF,BFD100 

0C16 

move.b 

/FF,BFDJ00 

0C1E 

moveq 

/1,d0 

0C20 

addq.b 

/3,d1 

0C22 

asl.l 

d1,d0 

0C24 

move.b 

d0,(a0) 

0C26 

move.l 

d2,6(a0) 

0C2A 

move.v 

/7FFF,9A(a3) 

0C50 

nove.v 

/8210,96(a3) 

0C36 

move.v 

/7F00,9E(a3) 

0C5C 

move.v 

/8500,9E(a5) 

0C42 

move.v 

/4489.7E(a3) 

0C48 

movem.1 

(a7)+,d2/a2-aJ 

0C4C 

rts 


0C4E 




Adresse des Stackrahmens übergeben 
—> Laufwerk abwählen 
DMACON: Bit Plane DMA sperren 
Stackzeiger korrigieren 
Register wiederherstellen 


; Kennwort an Anfang von Sektor 0 


Register retten 

a0 :* Adresse des Stackrahmens 
dl := Laufwerknummer 
d2 := Adresse des Lesepuffers 
aj -> ChipBase 

a1 -> Inltlallslerungstabelle 
a2 :■= a0 = Adresse des Stackrahmens 
d0 :• 0: Inltlallslerungszähler 
Stackrahmen Initialisieren 
mit 18 Nullen 

CIAA DDRA: Bits 2 bis 5 = Input 
CIAB PRB: Alle Bits setzen 
CIAB DDRB: Alle Bits = Output 
d0 1 

dl DlskSelect-Bit-Nummer 
DlskSelect-Bit ln d0 setzen 
und Im Stackrahmen abspeichern 
ebenso die Adresse des Lesepuffers 
INTENA: Alle Interrupts sperren 
DMACON; DMAEN und DSKEN setzen 
ADKCON: Bits 8 bis 14 löschen 
ADKCON: HORDSYNC und FAST setzen 
DSKSYNC Synchron-Wort 
Register wiederherstellen 
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0C4E i- Lesekopf auf Aueenspur (Spur 0) setzen 


0C4E 



0C4E F80C4E 

movem.l 

a2-a5.-(a7) 

0C52 

movea. 1 

C(a7),a2 

0C56 

Dovea. 1 

/BFD100.a5 

0C5C 

move.l 

a2.-(a7) 

0C5E 

Jsr 

F80D80 

0C64 

clr.w 

4(a2) 

0C68 

orl .b 

/4.(a5) 

0C6C 

andl.b 

/FD,(a5) 

0C70 

addq.l 

/4.a7 

0C72 F80C72 

moveq 

/0,d0 

0C74 

Bove.b 

BFE001,d0 

0C7A 

moveq 

/!<11101111,dl 

0C7C 

or.l 

dl ,d0 

0C7E 

moveq 

/FF.dl 

0C80 

cmp.l 

d0,d1 

0C82 

beq.s 

F80C90 

0C84 

move.l 

a0,-(a7) 

0C86 

Jsr 

F80DD4 

0C8C 

addq.l 

/4,a7 

0C8E 

bra.s 

F80C72 

0C90 



0C90 F80C90 

orl .b 

/2,(a3) 

0C94 F80C94 

moveq 

/0,d0 

0C96 

move.b 

BFE001,d0 

0C9C 

moveq 

/)t11101111 .d1 

0C9E 

or.l 

d1.d0 

0CA0 

moveq 

/FF.d1 

0CA2 

cmp.l 

d0,d1 

0CA4 

bne 

F80CB4 

0CA8 

move.l 

a2.-(a7) 

0CAA 

Jsr 

F80DD4 

0CB0 

addq.l 

/4.a7 

0CB2 

bra.s 

F80C94 

0CB4 



0CB4 F80CB4 

pea 

3A98 

0CB8 

Jsr 

F80DB4 

0CBE 

move.l 

a2,-(a7) 

0CC0 

Jsr 

F80DA6 


j Register retten 
; a2 Adresse des Stackrahnens 
i aj -> CIAB PRB 

; Adresse des Stackrahoens übergeben 
; —> Laufwerk 0 anuählen 
; SpurnuDmer 0 abspeichern 
: DSKSIDE 1 (unten) 

: DSKDIREC :> 0 (Kopfschrltt nach innen) 
j Stackzeiger korrigieren 
i d0 0 

; d0 := CIAA PRA 

; DSKTRACK0-Bit 0 
; Alle anderen Bits setzen 
; Alle Bits ln dl setzen 
; Lesekopf auf Spur 0? 

: Nein: -> 

; —> Kopfschritt ausfUhren 
: Stackzeiger korrigieren 
. —> wiederholen 

; DSKDIREC := 1 (Kopfschritt nach außen) 
; d0 := 0 

; d0 :=■ CIAA PRA 

: DSKTRACK0-Blt :• 0 
i Alle anderen Bits setzen 
; Alle Bits von d1 setzen 
: Lesekopf auf Spur 0? 

: Ja: -> 

: —> Kopfschritt ausführen 
: Stackzeiger korrigieren 
. —> wiederholen 

: Wartezahl 15000: 50 ms 
. —> warten 

j —> Laufwerk abwählen 
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0CC6 

addq.l /8,a7 

Stackzeiger korrigieren 

0CC8 

Bovem.l (a7)+,a2-a5 

Register wiederherstellen 

eiccc 

rts 


0CCE 



0CCE ;- 

Lesekopf auf bestimmte Spur 

setzen 

0CCE 



0CCE F80CCE 

movem.l d2-d6/a2-a5,-(a7) 

Register retten 

0CD2 

Bovea.l 20(a7),a2 

a2 := Adresse des Stackrahaens 

0CD6 

aove.l 24(a7),d2 

d2 := Spurnummer 

0CDA 

Boveq /0,d0 

d0 0 

0CDC 

Bovea.l /BFD100,aS 

aj -> CIAB PRB 

0CE2 

Bove.l d2,d6 

d6 := d2 = Spurnummer 

0CE4 

Boveq /1,d0 

d0 := 1 

0CE6 

and.l d0,d6 

d6 := Spurnummer modulo 2 - Seite 

0CE8 

Bove.l d2,d4 

d4 Spurnummer 

0CEA 

asr.l /1.d4 

d4 := Spurnummer 82= Zylinder 

0CEC 

Bove.v 4(a2),dS 

d5 := alte Spurnummer 

0CF0 

ext. 1 d$ 

auf Languort erweitern 

0CF2 

BOveq /1,d0 

d0 := 1 

0CF4 

and.l d0,dS 

d5 :■= alte Spurnummer modulo 2 = Seite 

0CF6 

move.v 4(a2),d5 

dj := alte Spurnummer 

0CFA 

ext.l d? 

auf Langwort erweitern 

0CFC 

asr.l /1,d3 

dj alte Spurnummer 82- Zylinder 

0CFE 

Bove.w 4(a2),d0 

d0 := alte Spurnummer 

0D02 

ext.l d0 

auf Langwort erweitern 

0D04 

CBp.l d2,d0 

Neue Spurnummer = alte Spurnummer? 

0D06 

beq F80D7A 

Ja: fertig -> 

0D0A 

Bove.l a2,-(a7) 

Adresse des Stackrahmens Ubergeben 

0D0C 

Jsr F80D80 

—> Laufwerk 0 anwählen 

0D12 

cmp.l d6,d5 

Neue Seite = alte Seite? 

0D14 

addq.l /4,a7 

Stackzeiger korrigieren 

0D16 

beq.s F80D32 

Gleiche Seite: -> 

0D18 

tst.l d6 

Neue Seite 'unten'? 

0D1A 

beq.s F80D22 

Ja: -> 

0D1C 

andl.b /)t11111011, (aj) 

DSKSIDE-Blt :- 0 ('oben') 

0D20 

bra.s F80D26 

—> 

0D22 



0D22 F80D22 

ori.b /4.(aJ) 

DSKSIDE-Bit := 1 ('unten') 

0D26 F80D26 

pea C8 

Wartezahl 200: 0.4 ms 

0D2A 

jsr F80DB4 

—> warten 
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0D50 


addq. 1 

/4,a7 

Stackzeiger korrigieren 

0072 

F80D52 

cmp. 1 

d4.d3 

Neuer Zylinder ■ alter Zylinder? 

0D54 


beq.s 

F80O6C 

Ja: fertig -> 

0D36 


cmp.l 

d4,d3 

Neuer Zylinder > alter Zylinder? 

0D38 


bge.s 

F80O44 

Nein: -> 

0D3A 


andl.b 

/)H1111101.(a5) 

OSKOIREC :=■ 0: Kopfschritt nach Innen 

0D7E 


Dove.l 

d4.d5 

d5 :- d4 • neuer Zylinder 

0D40 


sub. 1 

dJ,d5 

d5 :* Zahl der Kopfschritte 

0D42 


bra.s 

F80O4C 

—> 

0D44 





0D44 

F80D44 

ori.b 

/2,(a3) 

OSKOIREC := 1: Kopfschritt nach außen 

0D48 


nove.l 

d5.d5 

d5 := alter Zylinder 

0D4A 


sub. 1 

d4,d5 

d5 :=■ Zahl der Kopf schritte 

0D4C 

F80O4C 

move.l 

d5.d0 

d0 :- Zahl der Kopfschritte 

0D4E 


subq.l 

/1.d5 

um 1 vermindern 

0070 


move.l 

d0,d0 

d0 = 0? 

0052 


beq.s 

F80O60 

Ja: fertig -> 

0054 


move.l 

a2.-(a7) 

Adresse des Stackrahmens übergeben 

0056 


Jsr 

F80DO4 

—> Kopfschritt ausführen 

0D5C 


addq. 1 

/4,a7 

Stackzeiger korrigieren 

0O5E 


bra.s 

F80O4C 

—> wiederholen 

0060 





0060 

F80O60 

pea 

5A98 

Uartezahl 15000: 50 ms 

0064 


Jsr 

F80OB4 

—> warten 

0D6A 


addq. 1 

/4,a7 

Stackzeiger korrigieren 

0O6C 

F80D6C 

nove.v 

d2,4(a2) 

Neue Spurnummer abspeichern 

0070 


move.l 

a2,-(a7) 

Adresse des Stackrahmens übergeben 

0072 


jsr 

F80DA6 

—> Laufwerke abwählen 

0078 


addq. 1 

/4,a7 

Stackzeiger korrigieren 

0D7A 

F80O7A 

movem.l 

(a7)+,d2-d6/a2-a3 

Register wiederherstellen 

0O7E 


rts 



0080 










» 


0080 





0080 

F80O80 

movea.l 

4(a7),a0 

a0 -> Stackrahmen 

0084 


movea. 1 

/BFD100,a1 

a1 -> CIAB PRB 

0D8A 


ori.b 

/80,(a1) 

OSKNOTOR-Blt :• 1 ('aus') 

0O8E 


btst.b 

/7.1(a0) 

Notorflag testen 

0094 


sne 

d0 

d0 -1, wenn Notorflag gesetzt 

0096 


neg.b 

d0 

d0 :- 1, wenn Notorflag gesetzt 


Seite 236 


Amiga Know-how 











Amiga. Bootrom 


0098 

Isl.b 

/7.d0 

Bit 0 nach Bit 7 verschieben 

0D9A 

not.b 

d0 

und Bit fllppen 

0D9C 

and.b 

d0,(a1) 

DSKMOTOR-Blt :=■ 0 ('ein') wenn Motorfl 

0D9E 

nove.b 

(a0),d0 

d0 := LaufwerkSelect-Blt 

0DA0 

not.b 

d0 

fllppen 

0DA2 

and.b 

d0,(a1) 

DSKSELx-Blt 0 wählt Laufwerk an 

0DA4 

rts 



0DA6 




0DA6 :- 

Alle Laufwerke abwählen 


0DA6 




0DA6 F80DA6 

Bove.l 

4(a7),d0 

d0 Adresse des Stackrahnens 

0DAA 

ori .b 

/78,BFD100 

Alle DSKSEL-Blts setzen 

0DB2 

rts 



0DB4 




0DB4 i- 

Uarteroutine 


0DB4 




0DB4 F80DB4 

nove.l 

d2,-(a7) 

d2 retten 

0DB6 

nove. 1 

8(a7),d2 

d2 Uartezahl n 

0DBA 

nove.l 

d2,d0 

d0 := d2 ■= n 

0DBC 

asr.l 

/2.d0 

d0 := n/4 

0DBE 

nove.l 

d0,d2 

d2 n/4 

0DC0 F80DC0 

subq.l 

/1,d2 

d2 dekrenentleren 

0DC2 

beq.s 

F80DCC 

d2 = 0: -> 

0DC4 

Jsr 

F80DD0 

—> Zeit verbrauchen 

0DCA 

bra.s 

F80DC0 

—> wiederholen 

0DCC 




0DCC F80DCC 

nove.l 

(a7)+,d2 

d2 wiederherstellen 

0DCE 

rts 



0DD0 




0DD0 F80DD0 

ffloveq 

/0,d0 


0DD2 

rts 



0DD4 




0DD4 :- 

Kopfschritt ausfUhren 


0DO4 




0DD4 F80DD4 

nove.l 

4(a7),d0 

d0 Adresse des Stackrahnens 

0DD8 

andl .b 

/Jt11111110.BFD100 

DSKSTEP-Blt := 0 

0DE0 

orl.b 

/1,BFD100 

DSKSTEP-Blt 1 

0DE8 

pea 

BB8 

Uartezahl 3000; 6 ns 

0DEC 

Jsr 

-3A(pc) 

—> F80DB4: warten 

0DF0 

addq.w 

/4,(a7)+ 

Stackzeiger korrigieren 
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0DF2 

rts 


0DF4 



0DF4 :- 

Spur von Disk elnlesen 

0DF4 



0DF4 F80DF4 

Dovem.l 

d2-d6/a2-a5.-(a7) 

0DF8 

movea. 1 

20(a7),a2 

0DFC 

Bove.l 

/56F2.d6 

0E02 

noveq 

/0,d4 

0E04 

moveq 

/0,d0 

0E06 

move.l 

/50D40,d5 

0E0C 

movea.1 

/DFF000.a5 

0E12 

movea. 1 

6(a2),a0 

0E16 

addq.1 

/6,a0 

0E18 

move.l 

a0,d2 

0E1A 

move.v 

/2.9C(a5) 

0E20 

move.l 

d2.20(a5) 

0E24 

move.l 

a2.-(a7) 

0E26 

Jsr 

-A8(pc) 

0E2A 

Boveq 

/0,d2 

0E2C 

aove.b 

BFE001,d2 

0E52 

ooveq 

/)t11111011,d5 

0E54 

or.l 

d5,d2 

0E56 

noveq 

/FF,d5 

0E58 

cmp.l 

d2,d5 

0E5A 

addq. 1 

/4,a7 

0E5C 

bne 

F80E82 

0E40 

clr.w 

24(a5) 

0E44 

move.l 

d6,d0 

0E46 

asr. 1 

/I .d0 

0E48 

orl. 1 

/6000,d0 

0E4E 

nove.v 

d0.24(a5) 

0E52 

move.v 

d0,24(a5) 

0E56 F80E56 

subq. 1 

/1,d5 

0E58 

bge.s 

F80E60 

0E5A 

noveq 

/16.d2 

0E5C 

move.l 

d2,d0 

0E5E 

bra.s 

F80E8E 

0E60 



0E60 F80E60 

noveq 

/0,d0 

0E62 

nove.v 

1E(a5).d0 


; Register retten 
; a2 -> Stackrahnen 
; d6 := 14066 ■■ Wert für DSKLEN 
; d4 0 - Rückmeldekode *ok' 

; d0 ;= 0 (nicht sinnvoll, vgl. 0E44) 

; d5 :* 200000 für Timeout nach 1.5 s 

; a5 -> ChipBase 

; a0 -> Lesepuffer 

; a0 um 6 erhöhen 

; d2 :=■ a0 

; INTREQ: DSKBKL-Blt löschen 
; DSKPTH: Dlsk-Lesezelger setzen 
j Adresse des Stackrahmens übergeben 
j —> F80D80: Laufwerk anwählen 
; d2 0 

; d2 CIAA PRA 

; DSKCHANGE-Blt := 0 
; Alle anderen Bits in d2 setzen 
: Alle Bits in d5 setzen 
i DSKCHANGE-Blt gesetzt? 
i Stackzeiger korrigieren 
: Keine Disk im Laufwerk: -> 

; DSKLEN :> 0 

; d0 := d6 » 14066 = Zahl der Bytes 
: d0 := 7055 = Zahl der Worte 
; DMAEN-Blt setzen 
; DSKLEN setzen 
: Disk-DMA starten 
; Schleifenzähler dekrementleren 
: noch nicht negativ: -> 
j d2 :* 22 • Fehlerkode 
j d0 := Fehlerkode 
; —> Abschlue 

: d0 := 0 
; d0 := INTREQR 
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0E66 

btst.l 

/1,d0 

0E6A 

beq.s 

F80E56 

0E6C 

clr.w 

24(a3) 

0E70 

moveq 

/0,d2 

0E72 

move.b 

BFE001,d2 

0E78 

soveq 

/Jtn 111011.d3 

0E7A 

or.l 

d3,d2 

0E7C 

noveq 

/FF.d3 

0E7E 

cmp. 1 

d2.d3 

0E80 

beq.s 

F80E84 

0E82 F80E82 

moveq 

/19,d4 

0E84 F80E84 

move. 1 

a2,-(a7) 

0E86 

Jsr 

-E2(pc) 

0E8A 

move.l 

d4,d0 

0E8C 

addq.l 

/4.a7 

0E8E F80E8E 

lovem. 1 

(a7)+,d2-d6/a2-a3 

0E92 

rts 


0E94 



0E94 :- 

Motor elnschalten 

0E94 



0E94 F80E94 

move.l 

a2.-(a7) 

0E96 

movea. 1 

8(a7),a2 

0E9A 

btst.b 

/7.1(a2) 

0EA0 

bne 

F80EC4 

0EA4 

bset.b 

/7.1(a2) 

0EAA 

move.l 

a2,-(a7) 

0EAC 

Jsr 

-12E(pc) 

0EB0 

move.l 

a2.-(a7) 

0EB2 

Jsr 

-10E(pc) 

0E66 

move.l 

/7A120,-(a7) 

0EBC 

Jsr 

-10A(pc) 

0EC0 

lea 

C(a7).a7 

0EC4 F80EC4 

movea.1 

(a7)+,a2 

0EC6 

rts 


0EC8 



0EC8 i- 

Motor ausschalten 

0EC8 



0EC8 F80EC8 

move.l 

a2.-(a7) 

0ECA 

movea.1 

8(a7),a2 

0ECE 

btst.b 

/7.1(a2) 


DSKBLK-Blt gesetzt? 

Nein: warten -> 

DSKLEN löschen 
d2 := 0 

d2 :» CIAä PRA 
DSKCHANGE-Blt 0 
Alle anderen Bits ln d2 setzen 
Alle Bits ln d7 setzen 
Olsk ln Laufwerk? 

Ja: -> 

d4 25 ■ Fehlerkode 
Adresse des Stackrahmens übergeben 
—> F80DA6: Laufwerke abwählen 
d0 := d4 = Fehlerkode (0 = ok) 
Stackzeiger korrigieren 
Register wiederherstellen 


a2 retten 

a2 -> Stackrahaen 

Motorflag gesetzt? 

Ja: fertig -> 

Motorflag setzen 

Adresse des Stackrahmens übergeben 
—> F80D80: Motor elnschalten 
Adresse des Stackrahmens übergeben 
—> F80DA6: Laufwerke abwählen 
Härtezahl 500000: 1 s 
—> F80DB4: Warten 
Stackzeiger korrigieren 
a2 wiederherstellen 


a2 retten 

a2 -> Stackrahmen 

Motorflag gesetzt? 
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0ED4 

beq 

F80EEC 

0ED8 

bclr.b 

/7,1(a2) 

0EDE 

move.l 

a2,-(a7) 

0EE0 

Jsr 

-162(pc) 

0EE4 

move.l 

a2,-(a7) 

0EE6 

Jsr 

-142(pc) 

0EEA 

addq.1 

/8,a7 

0EEC F80EEC 

movea. 1 

(a7)+,a2 

0EEE 

rts 


0EF0 



0EF0 ;- 

Tabelle 

für Initialisierung 

0EF0 



0EF0 F80EF0 

DC.B 

0,0,0,0,0,0,0,0,0,0 

0F04 



0F04 :- 

8-Byte-Gruppe dekodieren 

0F04 



0F04 F80F04 

move.l 

d2,-(a7) 

0F06 

move.l 

8(a7),d0 

0F0A 

move.l 

«5555555, d2 

0F10 

movea. 1 

d0,a0 

0F12 

addq. 1 

«,a0 

0F14 

move.l 

(a0),d1 

0F16 

and. 1 

d2,d1 

0F18 

movea. 1 

d0,a0 

0F1A 

move.l 

(a0),d0 

0F1C 

and. 1 

d2,d0 

0F1E 

Isl.l 

/I ,d0 

0F20 

or. 1 

d0,d1 

0F22 

move.l 

d1,d0 

0F24 

move.l 

(a7)+,d2 

BF26 

rts 


0F28 



0F28 :- 

Block aus Puffer dekodieren 

0F28 



0F28 F80F28 

movem.l 

d2-d4/a2,-(a7) 

0F2C 

move.l 

14(a7),d0 

0F50 

move.1 

18(a7),d5 

0FJ4 

move.l 

1C(a7),d1 

0F58 

move.l 

«5555555, d2 

0F5E 

movea.1 

d1,a1 


Nein: fertig -> 

Motorflag löschen 

Adresse des Stackrahmens übergeben 

-> F80D80: Motor ausschalten 

Adresse des Stackrahmens übergeben 

-> F80DA6: Laufwerke abuählen 

Stackzeiger korrigieren 
a2 wiederherstellen 


des Stackrahmens 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 


d2 retten 

d0 -> 8-Byte-Gruppe Im Puffer 

d2 Bitmaske 01010101... 

a0 -> 8-Byte-Gruppe 

a0 -> Gruppe der geraden Bits 

dl :• Gruppe der geraden Bits 

Zwischenbits löschen 

a0 -> 8-Byte-Gruppe 

d0 := Gruppe der ungeraden Bits 

Zwischenbits löschen 

Ungerade Bits auf ungerade Stellen 

und mit den geraden Bits Odern 

d0 dl = dekodierte Gruppe 

d2 wiederherstellen 


und ln Klckstart-RAM kopieren 
Register retten 

d0 := Länge einer Gruppe =512 Bytes 

dj := Zieladresse 

dl -> Anfang der Daten Im Sektor 

d2 := Bismaske 01010101... 

a1 -> Anfang der Daten Im Sektor 
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0F40 

add.l 

d0,d1 

0F42 

movea. 1 

dl ,a2 

0F44 

move.l 

d0.d4 

0F46 

movea. 1 

d3.a0 

0F48 

bra.s 

F80F5A 

0F4A 



0F4A F80F4A 

move.l 

(a2)+,d1 

0F4C 

and. 1 

d2,d1 

0F4E 

move.l 

(a1)+,d0 

0F50 

and.l 

d2,d0 

0F52 

Isl.l 

/I ,d0 

0F54 

or. 1 

d0,d1 

0F56 

move.l 

d1,(a0)+ 

0F58 

subq.l 

/4.d4 

0F5A F80F5A 

tst.l 

d4 

0F5C 

bhl.s 

F80F4A 

0F5E 

Dovem.l 

(a7)+,d2-d4/a2 

0F62 

rts 


0F64 



0F64 :- 

Ende der Spurlücke suchen 

0F64 



0F64 F80F64 

move.l 

d2,-(a7) 

0F66 

move. 1 

8(a7),d0 

0F6A 

move. 1 

C(a7).dl 

0F6E 

move.l 

d0,d2 

0F70 

movea. 1 

d0,a0 

0F72 

adda.1 

d1,a0 

0F74 

move.l 

a0 ,d0 

0F76 F80F76 

cmp. 1 

d0,d2 

0F78 

bcc.s 

F80FA0 

0F7A 

movea. 1 

d2,a0 

0F7C 

cmpi .u 

/4489,(a0) 

0F80 

bne.s 

F80F9C 

0F82 

movea. 1 

d2,a0 

0F84 

addq. 1 

/2,a0 

0F86 

cmpi .w 

/4489.(a0) 

0F8A 

bne.s 

F80F94 

0F8C 

movea.1 

d2,a0 

0F8E 

subq.l 

/4.a0 

0F90 

move.l 

a0,d0 


dl -> Anfang der 2. Datengruppe 
a2 := dl -> Anfang der 2. Datengruppe 
d4 := d0 = Blocklänge 
a0 := d3 = Zieladresse 
—> 

dl := Langwort aus 2. Gruppe (gerade) 
Zuischenblts löschen 
d0 := Langvort aus 1. Gruppe (unger.) 
Zuischenblts löschen 
Ungerade Bits 1 nach links 
und mit geraden Bits Odern 
Ergebnis an Zieladresse schreiben 
Blocklänge um Languort vermindern 
Block fertig? 

Nein: ueitermachen -> 

Register wiederherstellen 


d2 retten 

d0 -> Anfang der Lücke 

dl := 3428 - max. Länge der Lücke 

d2 := d0 -> Anfang der Lücke 

a0 := d0 -> Anfang der Lücke 

a0 -> Anfang der Lücke + 3428 

d0 -> Anfang der Lücke + 3428 

Max. Länge der Lücke überschritten? 

Ja: Fehler -> 

a0 := d0 = Suchzeiger 

Sync-Wort gefunden? 

Nein: weltersuchen -> 
a0 := d2 = Suchzeiger 
um 2 erhöhen 

Folgt zweites Sync-Hort? 

Nein: Erstes Sync-Hort verloren -> 
a0 := d2 -> 1. Sync-Hort 
a0 um 4 Bytes zurücksetzen 
d0 := a0 -> Sektoranfang nach Lücke 
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0F92 

bra.s 

F80FA2 

0F94 



0F94 F80F94 

movea.l 

d2,a0 

0F96 

subq. 1 

/6,a0 

0F98 

move.l 

a0,d0 

0F9A 

bra.s 

F80FA2 

0F9C 



0F9C F80F9C 

addq. 1 

/2,d2 

0F9E 

bra.s 

F80F76 

0FA0 



0FA0 F80FA0 

noveq 

/0,d0 

0FA2 F80FA2 

move. 1 

(a7)+.d2 

0FA4 

rts 


0FA6 



0FA6 :- 

Gelesene Spur analysieren 

0FA6 



0FA6 F80FA6 

link 

a6,/-4 

0FAA 

movem.l 

d2-d6/a2-a5,-(a7) 

0FAE 

movea.l 

8(a6),a2 

0FB2 

moveq 

/0,d4 

0FB4 

movea.l 

6(a2),a0 

0FB8 

addq. 1 

/6,a0 

0FBA 

move.l 

a0,d0 

0FBC 

movea.l 

d0,a0 

0FBE 

cmpl .w 

/4489,(a0) 

0FC2 

beq.s 

F80FCA 

0FC4 

moveq 

/16.d4 

0FC6 

bra 

F810C4 

0FCA 



0FCA F80FCA 

movea.l 

d0,a0 

0FCC 

addq.l 

/2,a0 

0FCE 

cmpl .w 

/4489.(a0) 

0FD2 

bne.s 

F80FDC 

0FD4 

movea.l 

d0,a0 

0FD6 

subq. 1 

/4,a0 

0FD8 

movea.l 

a0,a? 

0FDA 

bra.s 

F80FE2 

0FDC 



0FDC F80FDC 

movea.l 

d0 ,a0 

0FDE 

subq.1 

/6,a0 


. — > 

; a0 := d2 -> 2. Sync-Wort 
; a0 um 6 Bytes zurUcksetzen 
j d0 a0 -> Sektoranfang nach Lücke 
--> 

: Suchzeiger auf nächstes Hort setzen 
. —> 

; Flag: Kein Sektoranfang 
; d2 wiederherstellen 


und prüfen, Lücke suchen 

: Platz für Sektor-Header reservieren 
j Register retten 
j a2 -> Stackrahmen 
; d4 := 0 

; a0 -> Lesepuffer 
; a0 um 6 erhöhen 
; d0 := a0 
j a0 := d0 

: Steht Sync-Wort am Anfan 
; Ja: -> 

: d4 := 22 = Fehlerkode 
; —> Ausgang 

; a0 -> Leseanfang 

; a0 um 2 erhöhen 

i Folgt das zweite Sync-Hort? 

: Nein: -> 

: a0 -> Leseanfang 
: a0 um 4 erniedrigen 
; a? -> 4 Bytes vor Leseanfang 
. —> 

; a0 -> Leseanfang 
; a0 um 6 erniedrigen 
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0FE0 

movea. 1 

a0,a3 

0FE2 F80FE2 

move.w 

/AAAA,(a3) 

0FE6 

move.w 

/AAAA,2(a3) 

0FEC 

move.v 

/4489,4(a3) 

0FF2 

move.l 

a3,A(a2) 

0FF6 

pea 

8(a3) 

0FFA 

jsr 

F80F04 

1000 

move.l 

d0.-4(a6) 

1004 

pea 

-4(a6) 

1008 

move.l 

a3.-(a7) 

100A 

move. 1 

a2,-(a7) 

100C 

Jsr 

F81114 

1012 

move.l 

d0,d4 

1014 

lea 

10(a7),a7 

1018 

bne 

F810C4 

1010 

move.b 

-1(a6).3(a2) 

1022 

move.b 

-2(a6),2(a2) 

1028 

cmpi.b 

/B.3(a2) 

102E 

bcc.s 

F8105E 

1030 

pea 

D64 

1034 

moveq 

/0,d2 

1036 

move.b 

3(a2),d2 

103A 

mulu 

/440,d2 

103E 

movea. 1 

d2,a0 

1040 

adda.l 

a3,a0 

1042 

pea 

(a0) 

1044 

Jsr 

-E2(pc) 

1048 

movea. 1 

d0,a3 

104A 

move.l 

a3,E(a2) 

104E 

exg 

d6,a3 

1030 

tst.l 

d6 

1052 

exg 

d6,a3 

1054 

addq. 1 

/8,a7 

1056 

bne.s 

F81062 

1058 

moveq 

/17.d4 

105A 

bra 

F810C4 

105E 



105E F8105E 

clr.l 

E(a2) 

1062 F81062 

moveq 

/0.d5 

1064 F81064 

move.l 

d5,-(a7) 


: a5 -> 6 Bytes vor Leseanfang 
; 4 mal MFH-Kode $AA eintragen 

; Sync-Wort eintragen 
: Anfang in Stackrahmen eintragen 
; Anfang der Header-Info übergeben 
; —> Header-Info dekodieren 
: Header-Info abspeichern 
; Adresse der dekodierten Header-Info 
j Anfang der Spur im Puffer 
: Adresse des Stackrahmens 
i —> Header prüfen 
; d4 :■= d0 = Fehlerkode 
; Stackzeiger korrigieren 
j Fehler ist aufgetreten: -> 

; Sektor-Offset bis Lücke 
; Sektor-Nummer 
; Sektor-Offset > 10? 

; Ja: Lücke am Ende des Puffers -> 

; 7428 (maximale Länge der Lücke) 
i d2 := 0 

j d2 :* Offset zur Lücke (Blöcke) 

; mal 1088 (Blocklänge im Puffer) 

; a0 :• Offset zur Lücke in Bytes 
; + Leseanfang » Anfang der Lücke 
; auf Stack übergeben 
; —> F80F64: Ende der Lücke suchen 
; a3 := d0 -> 1. Sektor nach der Lücke 
; abspeichern 

: ’tst’ geht nicht mit Adreßregister 
: Sync-Wort nach der Lücke gefunden? 

: aj uiederherstellen 
; Stackzeiger korrigieren 
: Sync-Wort gefunden: -> 

: d4 :* 2J = Fehlerkode 
j —> Ausgang 

; veil Lücke am Ende des Puffers 
; Anfangsuert der Sektornummer 
; Sektornummer übergeben 
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1066 

move.l 

a2,-(a7) 

1068 

Jsr 

F810CE 

106E 

movea.l 

d0,a3 

1070 

pea 

8(a3) 

1074 

Jsr 

F80F04 

107A 

move.l 

d0.-4(a6) 

107E 

pea 

-4(a6) 

1082 

move.l 

a3.-(a7) 

1084 

move.l 

a2.-(a7) 

1086 

Jsr 

F81114 

108C 

move.l 

d0,d4 

108E 

lea 

18(a7).a7 

1092 

bne 

F810C4 

1096 

pea 

38(a3) 

109A 

Jsr 

F80F04 

10A0 

move.l 

d0.d3 

10A2 

pea 

400 

10A6 

pea 

40(a3) 

10AA 

Jsr 

F81184 

10B0 

cmp.l 

d0,dj 

10B2 

lea 

C(a7),a7 

10B6 

beq.s 

F810BC 

10B8 

moveq 

/18,d4 

10BA 

bra.s 

F810C4 

10BC 



10BC F810BC 

addq.l 

/l.dS 

10BE 

noveq 

/B,d0 

10C0 

cmp.l 

d5,d0 

10C2 

bgt.s 

F81064 

10C4 F810C4 

move.l 

d4,d0 

10C6 

movem.l 

(a7)+,d2-d6/a2-a3 

10CA 

unlk 

a6 

10CC 

rts 


10CE 



10CE !- 

Adresse 

eines Sektors aus 

10CE 



10CE F810CE 

movem.l 

d2-d5.-(a7) 

10D2 

movea.l 

14(a7),a0 

10D6 

move.l 

18(a7),d2 

10DA 

ooveq 

4'0,dJ 


Adresse des Stackrahmens Ubergeben 
—> Anfang des Sektors ermitteln 
a3 :» d0 • Anfang des Sektors 
Adresse der Header-Info Ubergeben 
—> Header-Info dekodieren 
und abspeichern 

Adresse der Header-Info Ubergeben 
Anfangsadresse des Sektors Ubergeben 
Adresse des Stackrahmens übergeben 

-> Header prüfen 

d4 d0 = Fehlerkode 
Stackzeiger korrigieren 
Header fehlerhaft: -> 

Adresse der Block-Prüfsumme übergeben 
—> PrUfsumme dekodieren 
d3 := d0 » dekodierte Prüfsumme 
1024 (Datenbytes Im Puffer) übergeben 
Anfang der Daten Im Puffer übergeben 
—> Prüfsumme für Daten berechnen 
Prüfsumme berechnet wie gelesen? 
Stackzeiger korrigieren 
Prüfsumme ok: -> 
d4 :• 24 ' Fehlerkode 
—> Ausgang 

Sektornummer Inkrementleren 
d0 11 “ höchste Sektornummer+1 
Alle Sektoren bearbeitet? 

Nein: weitermachen -> 
d0 :» d4 * Fehlerkode 
Register wiederherstellen 
Platz für Header-Info freigeben 

seiner Nummer ermitteln 

Register retten 
a0 -> Stackrahmen 

d2 Nummer des gesuchten Sektors 

dj 0 
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10DC 

move.b 

2(a0).d5 

10E0 

Doveq 

/0,d4 

10E2 

move.b 

5(a0),d4 

10E6 

move.l 

A(a0),d5 

10EA F810EA 

cmp.l 

d5,d2 

10EC 

bne.s 

F810F2 

10EE 

move.l 

d5.d0 

10F0 

bra.s 

F8110E 

10F2 



10F2 F810F2 

addl.l 

/440,d5 

10F8 

subq.l 

/1,d4 

10FA 

bne.s 

F81100 

10FC 

move.l 

E(a0).d5 

1100 F81100 

addq.l 

/1.d5 

1102 

move.l 

d5,d1 

1104 

DOveq 

/B,d0 

1106 

cmp.l 

d1,d0 

1108 

bgt.s 

Fei0EA 

110A 

aoveq 

/0,d5 

110C 

bra.s 

F810EA 

110E 



110E F8110E 

movem.l 

(a7)+.d2-d5 

1112 

rts 


1114 



1114 ;- 

Sektor-I 

Reader prüfen 

1114 



1114 F81114 

movem.l 

d2/a2-a4,-(a7) 

1118 

movea. 1 

14(a7),a4 

111C 

movea.l 

18(a7),a5 

1120 

movea. 1 

1C(a7).a2 

1124 

cmpl .V 

/4489,6(a5) 

112A 

bne 

F81150 

112E 

pea 

50(a5) 

1152 

Jsr 

F80F04 

1158 

move.l 

d0,d2 

115A 

pea 

28 

115E 

pea 

8(a5) 

1142 

Jsr 

F81184 

1148 

cmp.l 

d0,d2 

114A 

lea 

C(a7),a7 


; dj Nummer des 1. Sektors im Puffer 
; d4 :* 0 

; d4 := Zahl der Sektoren vor der Lücke 
: d5 :• Anfangsadr der gelesenen Spur 
; Sektornummer gefunden? 

; Nein: -> 

; d0 :> d5 ' Adresse des Sektors 
; —> Ausgang 

: Adreezelger um Sektorlänge erhöhen 
: Sektorzahl vor der Lücke erniedrigen 
j Lücke noch nicht erreicht: -> 

; dS := Adresse 1. Sektor nach der Lücke 
; d? :> nächste Sektornummer 
; d1 := dj » aktuelle Sektornummer 
; d0 11 - höchste Sektornummer+1 
; Aktuelle Sektornummer > 10? 

: Nein: -> 

; Sonst durch Sektornummer 0 ersetzen 
; —> veitersuchen 

i Register wiederherstellen 


Register retten 

a4 -> Stackrahmen 

aj -> Anfang des Headers 

a2 -> dekodierte Header-Info 

Sync-Hort an der richtigen Stelle? 

Nein: Fehler -> 

Adresse der Header-Prüfsumme übergeben 
—> Prüfsumme dekodieren 
d2 := d0 = Prüfsumme 
40 ‘ Anzahl der Summanden übergeben 
Anfang für Prüfsumme übergeben 
—> Prüfsumme ermitteln 
Prüfsumme berechnet wie gelesen? 
Stackzeiger korrigieren 
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114E 

beq.s 

F81154 

1150 F81150 

Doveq 

/15.d0 

1152 

bra.s 

F8117E 

1154 



1154 F81154 

cmpl .b 

/FF,(a2) 

1158 

bne.s 

F81150 

115A 

moveq 

/0,d0 

115C 

move.b 

1(a2).d0 

1160 

CDSp.V 

4(a4).d0 

1164 

bne.s 

F81150 

1166 

cmpl .b 

/B,2(a2) 

116C 

bcc.s 

F81150 

116E 

tst.b 

5(a2) 

1172 

beq.s 

F81150 

1174 

cmpl .b 

/B,5(a2) 

117A 

bhl.s 

F81150 

117C 

moveq 

/0,d0 

117E F8117E 

movem. 1 

(a7) + ,d2/a2-i 

1182 

rts 


1184 



1184 :- 

Prüfsumme ermitteln 

1184 



1184 F81184 

move.l 

d2.-(a7) 

1186 

movea. 1 

8(a7),a0 

118A 

move.l 

C(a7).d0 

118E 

moveq 

/0,d1 

1190 

asr.l 

/2.d0 

1192 F81192 

tst.l 

d0 

1194 

beq.s 

F8119E 

1196 

subq. 1 

/I ,d0 

1198 

move.l 

(a0)+,d2 

119A 

eor. 1 

d2,d1 

119C 

bra.s 

F81192 

119E 



119E F8119E 

andl.1 

/55555555.d1 

11A4 

move.l 

d1,d0 

11A6 

move.1 

(a7)+,d2 

11A8 

rts 


11AA 



11AA 

DC.W 

0 


PrüfsuBme ok: -> 
d0 := 21 = Fehlerkode 
—> Ausgang 

Formatbyte richtig? 

Nein: Fehler -> 
d0 := 0 

d0 := Nummer der gelesenen Spur 
= Spurnummer Im Header? 

Nein: Fehler -> 

Sektornummer Im Header < 11? 
Nein: Fehler -> 

Offset zur Lücke 
= 0: Fehler -> 

> 11 ? 

Ja: Fehler -> 
ok-Flag 

Register ulederherstellen 


d2 retten 

a0 -> Anfang für Prüfsummenermittlung 
d0 := Bytezahl für Prüfsumme 
dl :* 0 = Ergebnisregister 
d0 :- Zahl der Langworte für Prüfsumme 
Langvortzähler abgelaufen? 

Ja: fertig -> 

Zähler dekrementleren 
d2 := nächstes Langwort 
Mit Ergebnisregister exklusiv Odern 
—> wiederholen 

Ungerade Bits ln dl löschen 
d0 := dl = Ergebnis 
d2 wiederherstellen 
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11AC 



11AC ;- 

Graphikausgabe vorbereiten 

11AC 



11AC F811AC 

movem.l 

d2-dj/a2-a4,-(a7) 

11B0 

move.l 

18(a7).d3 

11B4 

movea. 1 

/6000,a4 

11BA 

movea. 1 

/4000,a5 

11C0 

movea. 1 

/DFF000,a2 

11C6 

moveq 

/0.d2 

11C8 F811C8 

oove.v 

d2,d0 

11CA 

add.v 

d0,d0 

11CC 

lea 

110(a2),a0 

11D0 

clr.w 

0(a0,d0.v) 

11D4 

Dove.v 

d2,d0 

11D6 

asl .V 

/2,d0 

11D8 

lea 

E0(a2),a0 

11DC 

clr.l 

0(a0,d0.w) 

11E0 

addq.l 

/1,d2 

11E2 

moveq 

/6,d0 

nE4 

cmp.l 

d2.d0 

11E6 

bgt.s 

F811C8 

11E8 

moveq 

/0.d2 

11EA F811EA 

move.v 

d2,d0 

11EC 

asl.v 

/3.d0 

11EE 

lea 

140(a2),a0 

11F2 

move.v 

/FE00,0(a0,d0.w) 

11F8 

move.v 

d2,d0 

UFA 

asl .V 

/J,d0 

11FC 

lea 

140(a2),a0 

1200 

move.v 

/FF00,2(a0,d0.w) 

1206 

addq.l 

/I .d2 

1208 

moveq 

/8,d0 

120A 

cmp.l 

d2,d0 

120C 

bgt.s 

F811EA 

120E 

clr.l 

-(a7) 

1210 

pea 

1F40 

1214 

pea 

(a3) 

1216 

Jsr 

F81540 

121C 

clr.l 

-(a7) 

121E 

pea 

1F40 


Register retten 

dj -> Bereich für Copperliste 

a4 -> BitPlane 2 

aj -> BitPlane 1 

a2 ChlpBase 

d2 := 0 = BitPlane-Zähler 

d0 :* d2 » Nummer der BitPlane 

verdoppeln 

a0 -> BPL1DAT: BitPlane Datenregister 
Register für BitPlane (d0) löschen 
d0 := d2 = Nummer der BitPlane 
mal 4 

a0 := BPL1PTH: BitPlane Zeiger 
Zeiger für BitPlane (d0) löschen 
Nummer der BitPlane erhöhen 
d0 := 6 = höchste BitPlane-Nummer+1 
Alle BltPlanes bearbeitet? 

Nein: weitermachen -> 
d2 0 • Sprlte-Zähler 
d0 := d2 = Sprite-Nummer 
mal 8 

a0 := SPR0POS: Sprite x-Anfangswert 
hinter das Zeilenende legen 
d0 := d2 = Sprite-Nummer 
mal 8 

a0 := SPR0POS 

x-Endwert noch dahinter 

Sprite-Nummer erhöhen 

d0 := 8 = höchste Sprite-Nummer + 1 

Alle Sprites bearbeitet? 

Nein; veltermachen -> 

Löschkode 0 für BltPlanes 

8000 = Länge der BltPlanes ln Bytes 

Adresse der BitPlane 1 

—> BitPlane löschen 

Löschkode 0 für BltPlanes 

8000 = Länge der BltPlanes in Bytes 
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1222 

pea 

(a4) 

1224 

Jsr 

F81540 

122A 

Dovea.l 

d5.a1 

122C 

lea 

96(a2),a0 

1250 

move.w 

a0,d2 

1252 

andi.w 

/1FE,d2 

1256 

move.w 

d2,(a1)+ 

1258 

move.w 

/80.(a1)+ 

125C 

move.w 

/FFFF,(a1)+ 

1240 

move .w 

/FFFE.(a1)+ 

1244 

move .w 

/80,96(a2) 

124A 

move. 1 

d5,80(a2) 

124E 

move.w 

/1.88(a2) 

1254 

move.w 

/8080,96(a2) 

125A 

moveq 

/0,d2 

125C 

lea 

18(a7),a7 

1260 

bra.s 

F81272 

1262 



1262 F81262 

cmpl. 1 

/2710,d2 

1268 

ble.s 

F81270 

126A 

Jsr 

F81542 

1270 F81270 

addq.l 

/I ,d2 

1272 F81272 

btst.b 

/7.5(a2) 

1278 

bne.s 

F81262 

127A 

movea. 1 

d5,a1 

127C 

lea 

E0(a2),a0 

1280 

move.w 

a0,d2 

1282 

and! .w 

/1FE.d2 

1286 

move .w 

d2,(a1)+ 

1288 

move.l 

a5.d0 

128A 

moveq 

/10.d1 

128C 

asr. 1 

d1,d0 

128E 

move.w 

d0,(a1)+ 

1290 

lea 

E0(a2),a0 

1294 

move.w 

a0,d2 

1296 

addq.w 

/2,d2 

1298 

andl .w 

/1FE,d2 

129C 

move.w 

d2.(a1)+ 

129E 

movea. 1 

a5,a0 

12A0 

move.w 

a0,d2 


Adresse der BitPlane 2 

—> BitPlane löschen 

a1 := d5 -> Anfang der Copperliste 

a0 -> DMACON 

d2 -> DHACON 

d2 := Zielregister für Copper-HOVE 
Hort ln Copperliste schreiben 
Daten für «OVE: COPEN löschen 
Copper-UAIT bis Bildwechsel 
ln Copperliste schreiben 
DMACON; Copper DMA Enable löschen 
C0P1LCH := Adresse der Copperliste 
C0PJMP1 := 1 startet Copper 
DMACON: Copper DMA Enable setzen 
d2 := 0 = Zeitzähler 
Stackzeiger korrigieren 
—> 

d2 > 100007 
Nein: -> 

-> Fehler-Graphik ausgeben 

Zeitzähler erhöhen 
DMACONR: COPEN noch gesetzt? 

Ja: warten -> 

a1 := dj -> Copperliste 

a0 -> BPL1PTH 

d2 a0 -> BPL1PTH 

d2 := Zlelreglster für Copper-MOVE 

in Copperliste schreiben 

d0 aj -> BitPlane 1 

d1 := 16 

d0.w := BitPlane 1 Adresse,H 
in Copperliste schreiben 
a0 -> BPL1PTH 
d2 := a0 -> BPL1PTH 
d2 -> BPL1PTL 

d2 := Zielregister für Copper-MOVE 
in Copperliste schreiben 
a0 := a? -> BitPlane 1 
d2 := a0 -> BitPlane 1 
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12A2 

andl.V 

/FFFF,d2 

12A6 

nove.v 

d2,(a1)+ 

12A8 

lea 

E4(a2),a0 

12AC 

nove.v 

a0,d2 

12AE 

andi .V 

/1FE,d2 

12B2 

nove.v 

d2,(a1)+ 

12B4 

move.l 

a4,d0 

12B6 

noveq 

/10,d1 

12B8 

asr.l 

d1,d0 

12BA 

nove.v 

d0,<a1)+ 

12BC 

lea 

E4(a2),a0 

12C0 

nove.v 

a0,d2 

12C2 

addq.v 

/2,d2 

12C4 

andl.V 

/1FE,d2 

12C8 

nove.v 

d2,(a1)+ 

12CA 

novea.l 

34, a0 

12CC 

nove.v 

a0,d2 

12CE 

andl.v 

/FFFF,d2 

12D2 

nove.v 

d2,(a1)+ 

12D4 

nove.v 

/FFFF,(a1)+ 

12D8 

nove.v 

/FFFE,(a1)+ 

12DC 

nove.l 

a5,E0(a2) 

12E0 

ttove.l 

a4,E4(a2) 

12E4 

nove.l 

d5,80(a2) 

12E8 

nove.v 

/FFF,180(a2) 

12EE 

nove.v 

/0F0,182(a2) 

12F4 

nove.v 

/F00,184(a2) 

12FA 

nove.v 

/00F,186(a2) 

1500 

cir.v 

108(a2) 

1504 

cir.v 

10A(a2) 

1508 

nove.v 

/2500,100(a2) 

150E 

cir.v 

102(a2) 

1512 

nove.v 

/24,104(a2) 

1518 

nove.v 

/2C81,8E(a2) 

151E 

nove.v 

mC1,90(a2) 

1524 

nove.v 

/58,92(a2) 

152A 

nove.v 

/D0,94(a2) 

1550 

nove.v 

/1,88(a2) 

1556 

nove.v 

/8080,96(a2) 

155C 

noven.1 

(a7)+,d2-d5/a2-a4 


d2.v :* BltPlane 1 Adresse,L 

ln Copperliste schreiben 

a0 -> BPL2PTH 

d2 := a0 -> BPL2PTH 

d2 := Zlelreglster für Copper-MOVE 

ln Copperllste schreiben 

d0 :* a4 -> BltPlane 2 

dl :=■ 16 

d0.w :• BltPlane 2 Adresse,H 
ln Copperllste schreiben 
a0 -> BPL2PTH 
d2 := a0 -> BPL2PTH 
d2 -> BPL2PTL 

d2 := Zlelreglster für Copper-MOVE 

ln Copperllste schreiben 

a0 := a4 -> BltPlane 2 

d2 a0 -> BltPlane 2 

d2.v BltPlane 2 Adresse,L 

ln Copperllste schreiben 

Copper-WAIT bis Bllduechsel 

ln Copperllste schreiben 

BPL1PT :■= aj 

BPL2PT := a4 

COP1LC ;= dj 

COLOR00 Help 

COLOR01 :• Grün 

COLOR02 := Rot 

COLOR0J :=■ Blau 

BPL1M0D := 0 

BPL2H0D := 0 

BPLCON0 := BPU1, COLOR, GAUD 

BPLC0N1 0 

BPLC0N2 :• PF2P2, PF1P2 

DIHSTRT: y • 44, X = 129 

DIHSTOP: y * 244, X * 195 

DDFSTRT: nornal 

DDFSTOP: normal 

COPJHP1 :* 1: Copper starten 

DMACON: Copper DMA Enable setmen 

Register wiederherstellen 
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1340 

rts 



1342 




1342 :- 

Fehlergraphik ausgeben 


1342 




1342 F81342 

Boven. 1 

d2/a2,-(a7) 

Register retten 

1346 

Bovea. 1 

/DFF000,a2 

a2 :=■ ChlpBase 

134C 

jsr 

F813D6 

—> Harten auf Blldwechsel 

1352 

nove.v 

/F80,180(a2) 

COLOR00 Rot-Orange 

1358 

clr.w 

184(a2) 

COLOR02 := Schwarz 

135C 

clr.v 

186(a2) 

COLOR03 :• Schwarz 

1360 

iBOve.v 

/8180.96(a2) 

DHACON: BPLEN und COPEN setzen 

1366 

pea 

F8195C 

Adresse der BltPlane-Daten übergeben 

136C 

Jsr 

F81480 

—> BltPlanes erzeugen 

1372 

addq. 1 

/4.a7 

Stackzeiger korrigieren 

1374 F81374 

moveq 

/0.d2 

d2 := 0 * Zähler für BlInkdauer 

1376 F81376 

Jsr 

F813D6 

—> Harten auf Blldwechsel 

137C 

addq.l 

/1.d2 

Zähler d2 Inkrenentleren 

137E 

moveq 

/1E.d0 

d0 30 • Grenzwert 

1380 

cnp.l 

d2.d0 

Grenzwert erreicht? 

1382 

bgt.s 

F81376 

Nein: warten -> 

1384 

move.v 

/F80,184(a2) 

COLOR02 :» Rot-Orange 

138A 

moveq 

/0.d2 

d2 := 0 • Zähler für Bllnkdauer 

138C F8138C 

Jsr 

F813D6 

—> Harten auf Blldwechsel 

1392 

addq.l 

/1,d2 

Zähler d2 Inkreaentleren 

1394 

moveq 

/1E.d0 

d0 := 30 * Grenzwert 

1396 

cmp.l 

d2.d0 

Grenzwert erreicht? 

1398 

bgt.s 

F8138C 

Nein: warten -> 

139A 

clr.w 

184(a2) 

COLOR02 :• Schwarz 

139E 

bra.s 

F81374 

Blinken ohne Ende -> 

13A0 




13A0 :- 

Farben 

setzen, BltPlanes erzeugen 

13A0 




13A0 F813A0 

move.l 

a2.-(a7) 

a2 retten 

13A2 

Bovea.l 

/DFF000.a2 

a2 ChlpBase 

13A8 

Jsr 

F813D6 

—> Harten auf Blldwechsel 

13AE 

move.v 

/FFF,180(a2) 

COLOR00 := Help 

13B4 

clr.w 

182(a2) 

COLOR01 Schwarz 

13B8 

move.v 

/77C,184(a2) 

COLOR02 := Blau 

13BE 

move.v 

/CCC.186(a2) 

COLOR03 Hellgrau 

13C4 

pea 

F81A00 

Adresse der BltPlane-Daten übergeben 
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15CA 

Jsr 

F81480 

15D0 

addq.l 

/4.a7 

1JD2 

Bovea.l 

(a7)+.a2 

1JD4 

rts 


15D6 



15D6 ;- 

Warten auf Bildwechsel 

15D6 



13D6 F81JD6 

Bovea.l 

/DFF000,a0 

13DC 

move.v 

/20.9C(a0) 

13E2 F813E2 

btst.b 

/5.1F(a0) 

13E8 

beq.s 

F813E2 

13EA 

rts 


13EC 



13EC ;- 

Muster 

ln BltPlane-Rechte 

13EC 



13EC F813EC 

moven. 1 

d2-d7/a2-a3.-(a7) 

13F0 

Bovea.l 

24(a7).a0 

13F4 

Bove. 1 

28(a7).d3 

13F8 

Bove.1 

2C(a7),d1 

13FC 

Doveq 

/0.d5 

13FE 

Bove.v 

(a0)+,d5 

1400 

■oveq 

/0,d2 

1402 

Dove.v 

(a0)+,d2 

1404 

Bove.l 

d2,d6 

1406 

Boveq 

/F,d0 

1408 

and.l 

d0,d6 

140A 

Bove.l 

d2,d0 

140C 

asr.l 

^4.d0 

140E 

add.l 

d0,d0 

1410 

Bovea.l 

d0,a1 

1412 

adda.l 

d1,a1 

1414 

Bovea.1 

a1 ,a2 

1416 

tst.l 

d6 

1418 

bne.s 

F81440 

141A F8141A 

aove.l 

d5,d0 

141C 

subq.l 

/1.d5 

141E 

Bove.l 

d0,d0 

1420 

beq 

F81478 

1424 

Bovea.l 

d3,a1 

1426 

bra.s 

F8142C 


—> BitPlanes erzeugen 
Stackzeiger korrigieren 
a2 wiederherstellen 


a0 ChlpBase 
INTREQ: VertB-Blt löschen 
INTREQR: VertB-Blt gesetzt? 
Nein: warten -> 


eintragen 

Register retten 

a0 -> Husterdaten in Tabelle 

dj Worte pro Zelle 

dl -> BltPlane 

d5 := 0 

d5 := Zellen 1b Rechteck 
d2 0 

d2 := Pixel-Offset ln BltPlane 
d6 := d2 • Pixeloffset 
d0 15 

d6 Pixeloffset nodulo 16 
d0 := Pixeloffset 

d0 Plxeloffset/16 - Uortoffset 

d0 2*Uortoffset - Byteoffset 

a1 := Byteoffset ln BltPlane 
a1 Anfangsadresse des Musters 
a2 a1 > Anfangsadresse des Musters 
Pixeloffset Bodulo 16 • 07 
Nein: -> 

d0 := d5 * ZeilenzShler 
Zähler um 1 vermindern 
Statusflags setzen 
Zeilenzähler » 0: fertig -> 
a1 :* dJ = Uortzähler 
—> 


Amiga Know-how 


Seite 251 










Amiga . Bootrom 


1428 

1428 

F81428 

move.w 

(a0)+.d1 

dl 

- nächstes Tabellenwort 

142A 


or.u 

d1,(a2)+ 

Tabellenwort ln BltPlane Odern 

142C 

F8142C 

move.l 

a1,d0 

d0 

- a1 * Wortzähler 

142E 


subq, 1 

/I .a1 

um 

vermindern 

1450 


move.l 

d0,d0 

Statusflags setzen 

1452 


bne.s 

F81428 

Uortzähler noch nicht Null: -> 

1454 


moveq 

/14.d7 

d7 

- 20 Worte pro 520 Pixel 

1456 


movea. 1 

d7.a1 

a1 

- d7 - 20 

1458 


suba. 1 

d5,a1 

- Zahl der Worte/Husterzelle 

145A 


adda. 1 

a1 ,a1 

a1 

» Bytezahl bis nächste Husterzelle 

145C 


adda. 1 

a1 ,a2 

a2 

= Anfangsadr. nächste Nusterzelle 

145E 


bra.s 

F8141A 


wiederholen 

1440 

1440 

F81440 

moveq 

/10.d4 

d4 

= 16 

1442 


sub.l 

d6,d4 

d4 

= 16 - Pixeloffset modulo 16 

1444 

F81444 

move.l 

d5,d0 

d0 

- d5 = Zellenzähler 

1446 


subq.l 

/1.d5 

Zahler um 1 vermindern 

1448 


move.l 

d0,d0 

Statusflags setzen 

144A 


beq.s 

F81478 

Zeilenzähler = 0: fertig -> 

144C 


clr.w 

d2 

d2 

- 0 

144E 


movea. 1 

d5.a1 

a1 

• d5 = Wortzähler 

1450 


bra.s 

F81464 

—> 

1452 

1452 

F81452 

movea. V 

(a0)+,a5 

a5 

< nächstes Wort aus Tabelle 

1454 


move.w 

a5.d1 

dl 

= a5 = Wort aus Tabelle 

1456 


move.b 

d6,d0 

d0 

= d6 = Pixeloffset mod 16 

1458 


Isr.w 

d0,d1 

dl um d0 Bits nach rechts schieben 

145A 


move.b 

d4,d0 

d0 

= d4 » 16-Plxeloffset mod 16 

145C 


Isl .V 

d0,d2 

d2 um d0 Bits nach links schieben 

145E 


or.w 

d2,d1 

und 

ln dl elnodern 

1460 


or.w 

d1.(a2)+ 

Ergebnis ln BltPlane elnodern 

1462 


move.w 

a5,d2 

d2 

' Tabellenwort 

1464 

F81464 

move.l 

a1,d0 

d0 

= a1 = Wortzähler 

1466 


subq.l 

/l.al 

a1 um 1 vermindern 

1468 


move.l 

d0,d0 

Statusflags setzen 

146A 


bne.s 

F81452 

Wortzähler nicht Null: -> 

146C 


moveq 

/14.d7 

; d? 

:= 20 Worte pro 520 Pixel 

146E 


movea.1 

d7,a1 

; a1 

:■= d7 = 20 

1470 


suba.1 

d5.a1 

- Zahl der Worte/Husterzelle 
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1472 

adda.l 

a1 ,a1 

1474 

adda.l 

a1 ,a2 

1476 

bra.s 

F81444 

1478 



1478 F81478 

move. 1 

a0,d0 

147A 

movem.l 

(a7)+,d2-d7/a2 

147E 

rts 


1480 



1480 :- 

BltPlanes erzeugen 

1480 



1480 F81480 

movem.l 

d2-d6/a2.-(a7) 

1484 

movea.l 

1C(a7),a2 

1488 

addq. 1 

/2,a2 

148A 

oove.v 

(a2)'i',d6 

148C 

ext.l 

d6 

148E 

Dove.v 

(a2)+,d4 

1490 

ext.l 

d4 

1492 

Dove.v 

(a2)+.d5 

1494 

ext.l 

d5 

1496 F81496 

nove.v 

(a2)+,d5 

1498 

ext.l 

dJ 

149A 

nove.v 

(a2)+.d2 

149C 

ext.l 

d2 

149E 

■oveq 

/FF.d0 

14A0 

cmp.l 

d3.d0 

14A2 

bne.s 

F814B8 

14 A4 

Boveq 

/FF,d0 

14A6 

cmp.l 

d2,d0 

14A8 

beq 

F8153A 

14AC 

move.l 

d2,d6 

14 AE 

Bove.v 

(a2)+,d4 

14B0 

ext.l 

d4 

14B2 

Dove.v 

(a2)+,d5 

14B4 

ext.l 

d5 

14B6 

bra.s 

F81496 

1468 



14B8 F814B8 

moveq 

/FE,d0 

14BA 

cmp.l 

d5,d0 

14BC 

bne.s 

F814E4 

14BE 

Qove.v 

(a2)+.d4 


; mal 2 ergibt Zahl der Bytes 
; a2 -> Anfang nächste Husterzelle 
; —> wiederholen 

; d0 :» a0 = Zeiger ln Datentabelle 
j Register wiederherstellen 


Register retten 

a2 -> Anfang der BltPlane-Daten 

Erstes Hort $FFFF überlesen 

d6 :• 1. Datenwort 

auf Langwort erweitern 

d4 :• 2. Datenwort 

auf Langwort erweitern 

d5 5. Datenwort 

auf Langwort erweitern 

dj := nächstes Datenwort 

auf Langwort erweitern 

d2 :=■ nächstes Datenwort 

auf Langwort erweitern 

d0 -1 

Datenwort -1 gelesen? 

Nein: -> 

d0 -1 

Nächstes Datenwort auch -1? 

Ja: fertig -> 

d6 :- d2 “ Farbinformation 

d4 := nächstes Datenwort = x1 

auf Langwort erweitern 
d5 :• nächstes Datenwort •= y1 
auf Langwort erweitern 
—> welterlesen 

d0 :- -2 

Datenwort -2 gelesen? 

Nein: -> 

d4 := nächstes Datenwort = x 


Amiga Know-how 


Seite 253 








Amiga. Bootrom 


14C0 

ext.l 

d4 

14C2 

nove.w 

(a2)+,d5 

14C4 

ext.l 

d5 

14C6 

move.l 

d6.-(a7) 

14C8 

nove. 1 

d2,-(a7) 

MCA 

move. 1 

d5.d2 

MCC 

asl. 1 

/2.d2 

MCE 

move.l 

d2.d3 

MD0 

asl.l 

/2,d2 

MD2 

add.l 

d3.d2 

MD4 

move.l 

d2.-(a7) 

MD6 

move.l 

d4,-(a7) 

MD8 

Jsr 

F817BC 

MDE 

lea 

10(a7),a7 

MEZ 

bra.s 

F8M96 

ME4 



ME4 F8ME4 

moveq 

/FD.d0 

ME6 

cmp. 1 

dj,d0 

ME8 

bne.s 

F81500 

MEA 

pea 

4000 

MF0 

move.l 

d2.-(a7) 

MF2 

move.l 

a2.-(a7) 

MF4 

Jsr 

-10A(pc) 

MF8 

movea. 1 

d0,a2 

MFA 

lea 

C(a7),a7 

MFE 

bra.s 

F8M96 

1500 



1500 F81500 

moveq 

/FC,d0 

1502 

cmp.l 

d3,d0 

1504 

bne.s 

F8151E 

1506 

pea 

6000 

150C 

move.l 

<12.-(a7) 

150E 

move. 1 

a2,-(a7) 

1510 

Jsr 

-126(pc) 

1514 

movea. 1 

d0,a2 

1516 

lea 

C(a7).a7 

151A 

bra 

F8M96 

151E 



151E F8151E 

move. 1 

d6,-(a7) 

1520 

move.l 

d2.-(a7) 


auf Langwort erweitern 

d5 := nächstes Datenwort - y 

auf Langwort erweitern 

Farbinfo der Berandung 

Farbinfo des Untergrunds 

d2 := d5 = y 

d2 := 4»y 

dj := 4»y 

d2 := 16«y 

d2 20»y 

20»y 

X 

—> Fläche mit Randfarbe füllen 
Stackzeiger korrigieren 
—> welterlesen 

d0 := -5 

Datenwort -3 gelesen? 

Nein: -> 

Anfangsadresse der BitPlane 1 
Zahl der Uorte pro Husterzelle 
Zeiger ln Datentabelle 
—> F813EC: Muster in BitPlane Odern 
a2 d0 - Zeiger ln Datentabelle 
Stackzeiger korrigieren 
—> welterlesen 

i d0 := -4 

: Datenwort -4 gelesen? 

! Nein: -> 

j Anfangsadresse der BitPlane 2 
; Zahl der Horte pro Musterzeile 
; Zeiger ln Datentabelle 
j —> F81JEC: Muster ln BitPlane Odern 
: a2 := d0 = Zeiger ln Datentabelle 
; Stackzeiger korrigieren 
. —> welterlesen 

; Farbinfo 

: y2 


Seite 254 


Amiga Know-how 








Amiga. Bootrom 


1522 

love.l 

d5,-(a7) 

1524 

■ove. 1 

d5.-(a7) 

1526 

Dove.l 

d4,-(a7) 

1528 

Jsr 

F81564 

152E 

Dove. 1 

d5.d4 

1550 

move.l 

d2,d5 

1552 

lea 

14(a7),a7 

1556 

bra 

F81496 

155A 



155A F8155A 

■ovem.l 

(a7)+,d2-d6/a2 

155E 

rts 


1540 



1540 ;- 

Speicherbereich löschen 

1540 



1540 F81540 

Dove.l 

d2.-(a7) 

1542 

Bovea.l 

8(a7).a0 

1546 

Dove.l 

C(a7),d1 

154A 

Dove.v 

12(a7),d2 

154E 

iDOve.l 

dl .d0 

1550 

asr.l 

/1,d0 

1552 

Dove.l 

d0,d1 

1554 F81554 

Dove.l 

d1,d0 

1556 

subq.l 

/I ,d1 

1558 

Bove.l 

d0,d0 

155A 

beq.s 

F81560 

155C 

oove.v 

d2.(a0)+ 

155E 

bra.s 

F81554 

1560 



1560 F81560 

Bove.l 

(a7)+.d2 

1562 

rts 


1564 



1564 :- 

strecke 

zeichnen 

1564 



1564 F81564 

Bovem.1 

d2-d4,-(a7) 

1568 

Bove.1 

10(a7),d4 

156C 

move.l 

14(a7),d5 

1570 

Bove.l 

18(a7),d2 

1574 

move.l 

d2,d1 

1576 

sub.l 

d4,d1 

1578 

move.l 

1C(a7),d0 


; x2 

: y1 

; xl 

; —> Strecke (xl,y1)-(x2,y2) zeichnen 
; xl :• x2 

: yi := y 2 

; Stackzeiger korrigieren 
. -> weltermachen 

: Register wiederherstellen 


; d2 retten 

; a0 -> Anfang des Speicherbereichs 
; dl := Länge des Speicherbereichs 
: d2 ;• LBschkode 
: d0 := dl • Länge des Bereichs 
: d0 :• Länge ln Worten 
; dl :* d0 = Länge ln Worten 
: d0 :• dl = Restlänge ln Worten 
; dl dekrenentieren 
: Restlänge * 0? 

; Ja: fertig -> 

; Löschkode ln Speicher schreiben 
. —> wiederholen 

; d2 wiederherstellen 


Register retten 


d4 

= xl 

d3 

* yi 

d2 

- x2 

dl 

=■ d2 = x2 

dl 

= x2-x1 

d0 

• y2 
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157C 


sub.l 

d5.d0 

d0 

= y2-y1 

157E 


tst.l 

dl 

x2-x1 < 0? 

1580 


blt.s 

F81584 

Ja: 

-> 

1582 


bra.s 

F81586 



1584 






1584 

F81584 

neg.l 

dl 

x-Dlfferenz positiv nachen 

1586 

F81586 

tst.l 

d0 

y2-y1 < 0? 

1588 


blt.s 

F8158C 

Ja; 

-> 

15eA 


bra.s 

F8158E 

—> 

158C 






158C 

F8158C 

neg.l 

d0 

y-Dlfferenz positiv nachen 

158E 

F8158E 

cnp.l 

d0,d1 

x-Dlfferenz < y-Differenz? 

1590 


blt.s 

F815AC 

Ja: 

-> 

1592 


nove.l 

20(a7),-(a7) 

Farblnfo 

1596 


move. 1 

20(a7),-(a7) 

y2 


159A 


Bove.l 

d2,-(a7) 

x2 


159C 


Bove.l 

dJ.-(a7) 

yi 


159E 


nove.l 

d4.-(a7) 

Xl 


15A0 


Jsr 

F815CA 

—> strecke zeichnen 

15A6 


lea 

14(a7),a7 

Stackzeiger korrigieren 

15AA 


bra.s 

F815C4 

—> Ausgang 

15AC 






15AC 

F815AC 

move.l 

20(a7).-(a7) 

Farblnfo 

15B0 


nove.l 

20(a7).-(a7) 

y2 


15B4 


nove.l 

d2,-(a7) 

x2 


15B6 


nove.l 

d3.-(a7) 

yi 


15B8 


nove.l 

d4.-(a7) 

Xl 


15BA 


Jsr 

F816FE 

—> strecke zeichnen 

15C0 


lea 

14(a7),a7 

Stackzeiger korrigieren 

15C4 

F815C4 

noven. 1 

(a7)+,d2-d4 

Register wiederherstellen 

15C8 

15CA 

15CA 


rts 

Strecke 




* 


15CA 






15CA 

F815CA 

noven. 1 

d2-d6/a2-a4.-(a7) 

Register retten 

15CE 


nove.l 

24(a7),d3 

dj 

= xl 

15D2 


nove.l 

28(a7).d2 

d2 

= yi 

15D6 


nove.l 

2C(a7),d1 

dl 

= x2 

15DA 


nove.l 

d1,d0 

d0 

= dl = x2 

15DC 


sub.l 

d3.d0 

d0 

= x2-x1 
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15DE 

blt.s 

F815E6 

15E0 

nove.l 

d1,d0 

15E2 

sub.l 

d5,d0 

15E4 

bra.s 

F815EC 

1$E6 



15E6 F815E6 

move.l 

d1,d0 

15E8 

sub.l 

d5,d0 

15EA 

neg.l 

d0 

15EC F815EC 

move.l 

d0,d4 

15EE 

move.l 

50<a7),d0 

15F2 

sub.l 

d2,d0 

15F4 

blt.s 

F815FE 

15F6 

move.l 

50(a7),d0 

15FA 

sub.l 

d2,d0 

15FC 

bra.s 

F81606 

15FE 



15FE F815FE 

move.l 

50(a7),d0 

1602 

sub.l 

d2.d0 

1604 

neg.l 

d0 

1606 F81606 

move.l 

d0,d6 

1608 

add.l 

d6,d6 

160A 

sub.l 

d4,d6 

160C 

movea.l 

d0,a4 

160E 

adda.l 

a4,a4 

1610 

movea.l 

d0,a2 

1612 

suba. 1 

d4,a2 

1614 

adda.l 

a2,a2 

1616 

moveq 

/14.d5 

1618 

cmp.l 

d1,d5 

161A 

ble.s 

F81656 

161C 

movea.l 

d1,a5 

161E 

move.l 

50(a7),d4 

1622 

asl. 1 

/2.d4 

1624 

move.l 

d4.d0 

1626 

asl.l 

/2,d4 

1628 

add.l 

d0,d4 

162A 

cmp.l 

50(a7).d2 

162E 

bge.s 

F81652 

1650 

moveq 

/EC,d5 

1652 F81652 

move. 1 

d5,d2 


x2-x1 < 0: positiv machen -> 

(10 := dl - x2 
d0 x2-x1 
—> 

d0 dl = x2 
d0 :* x2-x1 < 0 
d0 :* x1-x2 > 0 

d4 := d0 * x-Dlfferenz = Dx > 0 

d0 y2 

d0 := y2-y1 

y2-y1 < 0: -> 

d0 :■= y2 

d0 := y2-y1 

—> 

d0 := y2 

d0 := y2-y1 < 0 

d0 := y1-y2 > 0 

d6 := d0 = y-Dlfferenz = Dy >= 0 

d6 := 2*Dy 

d6 := 2«Dy-Dx 

a4 :• d0 = Dy 

a4 := 2*Dy 

a2 :» d0 = Dy 

a2 := Dy-Dx 

a2 := 2»(Dy-Dx) 

d5 :• 20 

x2 > x1? 

Ja: -> 

a3 := dl - x2 
d4 :» y2 
d4 ;= 4*y2 
d0 := d4 = 4*y2 
d4 16»y2 
d4 20*y2 
y2 > y17 
Nein: -> 
d5 := -20 
d2 := d3 = x1 
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16J4 

bra.s 

F81662 

16J6 



1636 F81656 

movea. 1 

d3.a3 

1638 

move.l 

d2.d4 

163A 

asl.l 

«,d4 

163C 

move.l 

d4,d0 

163E 

asl.l 

/2,d4 

1640 

add.l 

d0,d4 

1642 

cmp.l 

30(a7).d2 

1646 

ble.s 

F8164A 

1648 

noveq 

/EC,d5 

164A F8164A 

move.l 

d1,d2 

164C 

bra.s 

F81662 

164E 



164E F8164E 

move.l 

a3.d0 

1630 

addq.l 

/1,a3 

1652 

cmp. 1 

d0.d2 

1654 

ble.s 

F81676 

1656 

tst.l 

d6 

1658 

bge.s 

F8165E 

165A 

add.l 

a4,d6 

165C 

bra.s 

F81662 

165E 



165E F8165E 

add.l 

d5.d4 

1660 

add.l 

a2,d6 

1662 F81662 

move.l 

34(a7).-(a7) 

1666 

move. 1 

d4,-(a7) 

1668 

move.l 

a3,-(a7) 

166A 

Jsr 

F8167C 

1670 

lea 

C(a7),a7 

1674 

bra.s 

F8164E 

1676 



1676 F81676 

movem.l 

(a7)+,d2-d6/a2-a4 

167A 

rts 


167C 



167C ;- 

Pixel setzen 

167C 



167C F8167C 

movem. 1 

d2-d4,-(a7) 

1680 

move. 1 

10(a7),d1 

1684 

move.l 

14(a7),d3 


; —> Punkte der Strecke zeichnen 


a3 

= d3 = x1 

d4 

= d2 = y1 

d4 

= 4»y1 

d0 

= d4 = 4»y1 

d4 

- 16«y1 

d4 

= 20«y1 


i y1 > y2? 

; Nein: -> 

; d5 := -20 
: d2 := dl = x2 

; —> Punkte der Strecke zeichnen 

: d0 aktueller x-Hert 
; X-Hert um 1 erhöhen 
: Endwert d2 erreicht? 

; Ja: fertig -> 

; d6 < 0? 

; Nein: -> 

; 2»Dy zu d6 addieren 
. —> 

j 20*y um 20 erhöhen bzw erniedrigen 
i 2*(Dy-Dx) zu d6 addieren 
j Farblnfo 
: 20»y 
; X 

: —> Pixel (x,y) setzen 
; Stackzeiger korrigieren 
. —> wiederholen 

j Register wiederherstellen 


Register retten 
dl :- X 
d3 := 20»y 
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1688 


■ove.l 

18(a7),d2 

d2 

= Farbinfo 


168C 


nove. 1 

dl,dB 

d0 

= dl = X 


168E 


asr.l 

/4,d8 

d0 

- x/16 


1698 


add.l 

d3.d0 

d0 

• (x+J20»y)/16 


1692 


asl.l 

/1,d0 

d0 

= (x+320»y)/8 


1694 


sove.v 

d0,d4 

d4 

• d0 


1696 


aove.l 

/8000,d3 

Bit 

15 ln d3 setzen 


169C 


Bove.b 

d1.d0 

d0 

• dl = X modulo 256 


169E 


andi .b 

/F.d0 

d0 

■= X modulo 16 


16A2 


asr.l 

d0.d5 

d? um d0 Bits nach rechts schieben 

16A4 


btst.l 

/0,d2 

BitPlane 1 Farbwert => 0? 


16A8 


beq. s 

F816BC 

Ja: 

-> 


16AA 


Bovea.l 

/4000,a0 

a0 

-> BitPlane 1 


16B8 


Boveq 

/0.d0 

d0 

- 0 


16B2 


Bove.v 

d4,d0 

d0 

- <x+320»y)/8 - Offset 


16B4 


adda.l 

d0,a0 

a0 

-> Wort, das Pixel (x,y) 

enthält 

16B6 


Bove.v 

d3,d0 

d0 

* dJ = Pixelbit im Wort 


16B8 


or.w 

d0,(a0) 

Bit 

in BitPlane 1 setzen 


16BA 


bra.s 

F816CE 

—> 


16BC 







16BC 

F816BC 

Bovea. 1 

/4000,a0 

a0 

-> BitPlane 1 


16C2 


Boveq 

/0,d0 

d0 

- 0 


16C4 


Bove.u 

d4,d0 

d0 

= d4 = (x+320»y)/8 = Offset 

16C6 


adda.l 

d0,a0 

a0 

-> Wort, das Pixel (x,y) 

enthält 

16C8 


Bove.w 

d3,d0 

d0 

= d3 * Pixelbit im Wort 


16CA 


not.w 

d0 

Alle Bits in d0 flippen 


16CC 


and.v 

d0,(a0) 

Bit 

in BitPlane 1 löschen 


16CE 

F816CE 

btst.l 

/1.d2 

BitPlane 2 Farbwert = 0? 


16D2 


beq.s 

F816E6 

Ja: 

-> 


16D4 


Bovea.l 

/6000,a0 

a0 

-> BitPlane 2 


16DA 


Doveq 

/0,d0 

d0 

:= 0 


16DC 


move.w 

d4,d0 

d0 

:= d4 = (x+320*y)/8 = Offset 

16DE 


adda.l 

d0,a0 

a0 

-> Wort, das Pixel (x,y) 

enthält 

16E0 


move.w 

d3,d0 

d0 

:= d3 = Pixelbit im Wort 


16E2 


or.w 

d0,(a0) 

Bit 

ln Bitplane 2 setzen 


16E4 


bra.s 

F816F8 

— 

> Ausgang 


16E6 







16E6 

F816E6 

movea.1 

/6000,a0 

a0 

-> BitPlane 2 


16EC 


moveq 

/0,d0 

d0 

:• 0 


16EE 


move.w 

d4.d0 

d0 

:= d4 = (x+520*y)/8 = Offset 
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16F0 

adda. 1 

d0,a0 

16F2 

move.v 

d3,d0 

16F4 

not.u 

d0 

16F6 

and.v 

d0,(a0) 

16F8 F816F8 

lovea. 1 

(a7)+,d2-d4 

16FC 

rts 


16FE 



16FE i- 

strecke 

zeichnen (Betrag 

16FE 



16FE F816FE 

noven.l 

d2-d6/a2-a4.-(a7) 

1702 

move.l 

24(a7).d3 

1706 

nove.l 

28(a7),d2 

170A 

move.l 

2C(a7).d1 

170E 

nove.l 

d1,d0 

1710 

sub.l 

d3.d0 

1712 

blt.s 

F8171A 

1714 

nove.l 

dl ,d0 

1716 

sub.l 

d3.d0 

1718 

bra.s 

F81720 

171A 



171A F8171A 

nove.l 

d1,d0 

171C 

sub.l 

d3,d0 

171E 

neg.l 

d0 

1720 F81720 

nove.l 

d0,d4 

1722 

nove.l 

30(a7).d0 

1726 

sub.l 

d2.d0 

1728 

blt.s 

F81732 

172A 

nove.l 

30(a7),d0 

172E 

sub.l 

d2,d0 

1750 

bra.s 

F8175A 

1732 



1732 F81732 

move.l 

30(a7),d0 

1736 

sub.l 

d2,d0 

1738 

neg.l 

d0 

173A F8173A 

nove.l 

d4,d6 

173C 

add.l 

d6.d6 

175E 

sub.l 

d0,d6 

1740 

movea. 1 

d4,a4 

1742 

adda. 1 

a4,a4 

1744 

movea. 1 

d4,a2 


a0 -> Wort, das Pixel (x,y) enthält 
d0 := d3 * Pixelbit ln Wort 
Alle Bits ln d3 fllppen 
Bit ln BltPlane 2 löschen 
Register wiederherstellen 


Steigung >=■ 1) 

Register retten 
dj := x1 
d2 := y1 
dl x2 
d0 dl * x2 
d0 x2-x1 

x2-x1 < 0: positiv machen -> 
d0 := dl - x2 
d0 :« x2-x1 
—> 

d0 := dl = x2 
d0 := x2-x1 < 0 
d0 x1-x2 > 0 

d4 :• d0 - x-Dlfferenz * Dx > 0 
d0 := y2 
d0 := y2-y1 

y2-y1 < 0: positiv machen -> 
d0 := y2 
d0 y2-y1 
—> 

d0 y2 
d0 y2-y1 < 0 
d0 :■= y1-y2 > 0 

d6 := d4 • x-Dlfferenz - Dx >• 0 

d6 := 2»Dx 

d6 2»Dx-Dy 

a4 := d4 • Dx 

a4 2»Dx 

a2 d4 - Dx 
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1746 


suba.l 

d0,a2 

a2 

= Dx-Dy 


1748 


adda. 1 

a2,a2 

a2 

= 2»(Dx-Dy) 


174A 


Doveq 

/I .d5 

d5 

= 1 


174C 


cnp.l 

50(a7),d2 

y1 > y27 


1750 


ble.s 

F81770 

Nein: -> 


1752 


■ovea.l 

d1.a5 

a3 

- dl * x2 


1754 


■ove. 1 

50(a7).d4 

d4 

■= y2 


1758 


asl.l 

/2.d4 

d4 

= 4»y2 


175A 


■ove.l 

d4,d0 

d0 

= d4 “ 4*y2 


175C 


asl.l 

/2,d4 

d4 

- 16»y2 


175E 


add.l 

d0,d4 

d4 

= 20»y2 


1760 


cnp.l 

d1.d5 

Xl 

x2? 


1762 


bge.s 

F81766 

Nein: -> 


1764 


noveq 

/FF,d5 

d5 

= -1 


1766 

F81766 

asl.l 

/2,d2 

d2 

= 4»y1 


1768 


nove. 1 

d2,d0 

d0 

= 4»y1 


176A 


asl.l 

/2.d2 

d2 

= 16»y1 


176C 


add.l 

d0,d2 

d2 

= 20»y1 


176E 


bra.s 

F817A4 

— 

Punkte der Strecke 

zeichnen 

1770 







1770 

F81770 

aovea.l 

d5.a3 

a3 

= d5 ■= xl 


1772 


nove. 1 

d2,d4 

d4 

- d2 - y1 


1774 


asl.l 

/2.d4 

d4 

= 4»y1 


1776 


love.l 

d4,d0 

d0 

= d4 • 4»y1 


1778 


asl.l 

/2.d4 

d4 

= 16»y1 


177A 


add.l 

d0,d4 

d4 

= 20»y1 


177C 


cnp.l 

d1,d3 

xl > x2? 


177E 


ble.s 

F81782 

Nein: -> 


1780 


noveq 

/FF,d5 

d5 

- -1 


1782 

F81782 

nove. 1 

30(a7),d2 

d2 

- y2 


1786 


asl. 1 

/2,d2 

d2 

= 4»y2 


1788 


nove.l 

d2,d0 

d0 

= d2 - 4»y2 


178A 


asl.l 

/2.d2 

d2 

= 16*y2 


178C 


add.l 

d0,d2 

d2 

* 20»y2 


178E 


bra.s 

F817A4 

—> Punkte der Strecke 

zeichnen 

1790 







1790 

F81790 

cnp.l 

d2,d4 

Endwert d2 für 20»y erreicht? 

1792 


bge.s 

F817B6 

Ja: 

Fertig -> 


1794 


noveq 

/14,d0 

d0 

= 20 


1796 


add.l 

d0,d4 

20*y un 20 erhöhen 
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1798 

tst.l 

d6 

179A 

bge.s 

F817A0 

179C 

add.l 

a4,d6 

179E 

bra.s 

F817A4 

17A0 



17A0 F817A0 

adda. 1 

d5,a5 

17A2 

add.l 

a2,d6 

17A4 F817A4 

Bove.l 

34(a7),-(a7) 

17A8 

Bove.l 

d4,-(a7) 

17AA 

Bove.l 

aJ.-(a7) 

17AC 

Jsr 

-1J2(pc) 

17B0 

lea 

C(a7).a7 

17B4 

bra.s 

F81790 

17B6 



17B6 F817B6 

aoven. 1 

(a7)+,d2-d6/a2-a4 

17BA 

rts 


17BC 



17BC i- 

Fläche 1 

nit Farbe füllen 

17BC 



17BC F817BC 

Bovem.l 

d2-d6/a2,-(a7) 

17C0 

Bove. 1 

1C(a7),d4 

17C4 

Bove.l 

20(a7),d5 

17C8 

Bove.l 

24(a7),d6 

17CC 

Bovea.1 

/F817BC,a2 

17D2 

Bove.l 

(15.-(a7) 

17D4 

aove.l 

d4,-(a7) 

17D6 

Jsr 

F818JC 

17DC 

CBp.l 

d0,d6 

17DE 

addq.1 

/8.a7 

17E0 

bne.s 

F81856 

17E2 

Bove.l 

28(a7),-(a7) 

17E6 

Bove.l 

d5.-(a7) 

17E8 

Bove.l 

d4,-(a7) 

17EA 

Jsr 

-170(pc) 

17EE 

Bove.1 

J4(a7),-(a7) 

17F2 

move.l 

d6,-(a7) 

17F4 

move.l 

dS.dJ 

17F6 

moveq 

/14.d2 

17F8 

add.l 

d2,dj 

17FA 

move.l 

dj,-(a7) 


; d6 < 0? 
i Nein: -> 

; 2«Dx zu d6 addieren 
. —> 

i X UB 1 erhöhen bzu. erniedrigen 
; 2»(Dx-Dy) zu d6 addieren 
i Farblnfo 
; 20«y 
i X 

: —> F8167C: Pixel (x,y) setzen 
: Stackzeiger korrigieren 
. —> wiederholen 

j Register wiederherstellen 


Register retten 
d4 := X 
d5 20*y 

d6 := Untergrundfarbe 

a2 -> Routine für Rekursion 

20»y 

X 

—> Farblnfo des Pixels (x.y) lesen 

Hat Pixel Untergrundfarbe? 

Stackzeiger korrigieren 

Pixel hat nicht Untergrundfarbe: -> 

Farblnfo für Ausfüllung 

20»y 

X 

—> F8167C: Pixel (x,y) setzen 
20»y (Anfang) 

Farblnfo für Ausfüllung 
d3 := d5 = 20»y 
d2 := 20 
d3 := 20»(y+l) 

20*(y+1) 
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17FC 

move.l 

d4.-(a7) 

17FE 

jsr 

(a2) 

1800 

Dove.l 

44(a7).-(a7) 

1804 

Bove. 1 

d6,-(a7) 

1806 

Bove.l 

d5.-(a7) 

1808 

Bove.l 

d4.d3 

180A 

subq.l 

/1.d3 

180C 

Bove. 1 

d3,-(a7) 

180E 

Jsr 

(a2) 

1810 

Bove.l 

54(a7),-(a7) 

1814 

Bove.l 

d6.-(a7) 

1816 

Bove.l 

d5.d3 

1818 

Boveq 

/14.d2 

181A 

sub.l 

d2.d3 

181C 

Bove. 1 

d3.-(a7) 

181E 

Bove.1 

d4,-(a7) 

1820 

Jsr 

(a2) 

1822 

aove.1 

64(a7).-(a7) 

1826 

Bove.l 

d6.-(a7) 

1828 

aove. 1 

d5,-(a7) 

182A 

Bove. 1 

d4,d3 

182C 

addq.l 

/1.d3 

182E 

Bove.l 

d3.-(a7) 

1830 

Jsr 

(a2) 

1832 

lea 

4C(a7),a7 

1836 F81836 

Bovea. 1 

(a7)+,d2-d6/a2 

183A 

rts 


183C 



183C i- 

Farblnfo des Pixels (x 

183C 



183C F8183C 

Bovea.l 

d2-d3.-(a7) 

1840 

Bove.l 

C(a7),d0 

1844 

aove.l 

10(a7),d1 

1848 

noveq 

/0.d3 

184A 

aove.l 

d0.d2 

184C 

asr.l 

/4.d2 

184E 

add.l 

d1,d2 

1850 

asl.l 

/I .d2 

1852 

aove.l 

/8000,d1 

1858 

and! .b 

/F,d0 


X 

—> Rekursion 
20»y (Anfang) 

Farblnfo für Ausfüllung 
20»y 

d3 := d4 = X 
d3 x-1 
x-1 

—> Rekursion 
20»y (Anfang) 

Farblnfo für Ausfällung 
d3 d5 = 20»y 

d2 20 

d3 := 20»(y-1) 

20»(y-1) 

X 

—> Rekursion 
20»y (Anfang) 

Farblnfo für Ausfüllung 
20»y 

dj d4 * X 

dj x+1 

x+1 

—> Rekursion 
Stackzeiger korrigieren 
Register wiederherstellen 


y) lesen 

; Register retten 


d0 

= X 

dl 

= 20»y 

d3 

= 0 

d2 

= d0 = X 

d2 

= x/16 

d2 

= (x+320»y)/16 

d2 

= (x+320»y)/8 


Bit 15 in dl setzen 
d0 X modulo 16 
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185C 


asr.l 

d0,d1 

dl um d0 Bits nach rechts schieben 

185E 


movea. 1 

/4000,a0 

a0 - 

> BltPlane 1 

1864 


adda.l 

d2,a0 

a0 - 

> Wort, das Pixel (x.y) enthält 

1866 


Doveq 

/0,d0 

d0 

. 0 

1868 


nove.v 

(a0),d0 

d0 

= Pixelwort 

186A 


and. 1 

dl ,d0 

Pixelbit Isolieren 

186C 


beq.s 

F81872 

Bit 

nicht gesetzt: -> 

186E 


Boveq 

/I .d0 

Bit 

0 setzen 

1870 


or.l 

d0,d3 

und 

ln Farblnfo elnodern 

1872 

F81872 

movea. 1 

/6000,a0 

a0 - 

> BltPlane 2 

1878 


adda.l 

d2,a0 

a0 - 

> Wort, das Pixel (x,y) enthält 

187A 


noveq 

/0,d0 

d0 

= 0 

187C 


move.v 

(a0),d0 

d0 

= Pixelwort 

187E 


and.l 

dl ,d0 

Pixelbit Isolieren 

1880 


beq.s 

F81886 

Bit 

nicht gesetzt: -> 

1882 


moveq 

fZ.ii 

Bit 

1 setzen 

1884 


or.l 

d0,d5 

und 

ln Farblnfo elnodern 

1886 

F81886 

move.l 

dj.d0 

d0 

= dj = Farblnfo 

1888 


movem.1 

(a7)+,d2-d5 

Register wiederherstellen 

188C 

188E 

188E 

1890 

1890 

! 

rts 

DC.U 0 

Datenblock von Disk ln Kickstart- 

RAM schreiben 

1890 

1890 

F81890 

movem. 1 

d2-d6/a2,-(a7) 

Register retten 

1894 


movea. 1 

1C(a7).a2 

a2 

•> Stackrahmen 

1898 


move.l 

20(a7),d5 

d5 

= Zieladresse 

189C 


love .V 

26(a7),d2 

d2 

= logische Sektornummer 

18A0 


moveq 

/0,d6 

d6 

= 0 

18A2 


moveq 

/A,d5 

dJ 

= 10 = Wiederholungszähler 

18A4 


moveq 

/0,d0 

d0 

= 0 

18A6 


move.v 

d2,d0 

d0 

= d2 = logische Sektornummer 

18A8 


dlvu 

/B.d0 

d0 durch 11 (Sektoren/Spur) dividieren 

18AC 


andl.1 

/FFFF.d0 

Rest der Division löschen 

18B2 


move.l 

d0,d4 

d4 

= d0 = Spurnummer 

18B4 

F818B4 

move .V 

4(a2).d1 

dl 

= Nummer der Spur Im Puffer 

18B8 


ext.l 

dl 

auf Langwort erweitern 

18BA 


cmp.l 

d4,d1 

Gesuchter Sektor schon Im Puffer? 

18BC 


bne 

F818C8 

Nein: -> 
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18C0 

btst.b 

/6,1(a2) 

18C6 

bne.s 

F818FA 

1808 F818C8 

move. 1 

d4,-(a7) 

18CA 

move.l 

a2,-(a7) 

18CC 

Jsr 

F80OOE 

18D2 

move.l 

a2.-(a7) 

18D4 

jsr 

F80DF4 

18DA 

move. 1 

d0,d6 

18DC 

lea 

0(a7),a7 

18E0 

bne 

F81934 

18E4 

move.l 

a2,-(a7) 

18E6 

Jsr 

F80FA6 

18EC 

move.l 

d0,d6 

18EE 

addq. 1 

/4.a7 

18F0 

bne 

F81934 

18F4 

bset.b 

/6.1(a2) 

18FA F818FA 

movea.v 

d2,a0 

18FC 

move.w 

d4,d2 

18FE 

move.v 

d2,d4 

1900 

add.v 

d2,d2 

1902 

move.v 

d2,d3 

1904 

asl.v 

/2,d2 

1906 

add.v 

d3.d2 

1908 

add.v 

d4,d2 

190A 

suba.v 

d2,a0 

1900 

moveq 

/0.d2 

190E 

move.v 

a0,d2 

1910 

move.l 

d2.-(a7) 

1912 

move.l 

a2,-(a7) 

1914 

Jsr 

F810OE 

191A 

movea.l 

d0,a0 

1910 

pea 

40(a0) 

1920 

move.l 

d5.-(a7) 

1922 

pea 

200 

1926 

Jsr 

F80F28 

1920 

lea 

14(a7),a7 

1930 F81930 

move.l 

d6,d0 

1932 

bra.s 

F81956 

1934 



1934 F81934 

bclr.b 

/6,1(a2) 


: Daten in Puffer ok? 

: Ja: Disk lesen nicht notwendig -> 

; Spurnunnier übergeben 
; Adresse des Stackrahmens übergeben 
; —> Kopf auf die Spur setzen 
; Adresse des Stackrahmens Obergeben 
j —> Spur von Disk lesen 
; d6 :• d0 * Fehlerkode 
; Stackzeiger korrigieren 
i Fehler bein Lesen: -> 

; Adresse des Stackrahmens übergeben 
: —> Puffer aufbereiten 
: d6 d0 = Fehlerkode 
i Stackzeiger korrigieren 
i Fehlerhafte Daten im Puffer: -> 

; Flag 'Daten ln Ordnung’ setzen 
j a0 := d2 = Sektornummer 
j d2 :« d4 * Spurnummer 
; d4 :» d2 ' Spurnummer 
; d2 :• 2*Spurnummer 
; dj := d2 = 2»Spurnummer 
j d2 := 8»Spurnummer 
; d2 :■= 10*Spurnummer 
: d2 :- 11*Spurnummer 
; a0 Nummer des Sektors in der Spur 
; d2 :- 0 

; d2 a0 ° Sektornummer in der Spur 
; Sektornummer ln der Spur übergeben 
i Adresse des Stackrahmens übergeben 
; —> Adresse des Sektors ermitteln 
; a0 :- d0 • Adresse des Sektors 
: Anfang des Datenblocks im Sektor 
; Zieladresse übergeben 
; 512 - Anzahl Bytes im Datenblock 
: —> Block an Zieladresse schreiben 
; Stackzeiger korrigieren 
: d0 := d6 = Fehlerkode 
j —> Ausgang 

; Flag 'Daten in Ordnung’ löschen 
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193A 

subq.1 

/l.dJ 

Uiederholungszähler erniedrigen 

193C 

ble.s 

F81950 

Zähler abgelaufen: Fehlerausgang - 

193E 

Bove.l 

d3.d1 

dl d3 - Zähler 

1940 

Boveq 

/3,d0 

d0 3 

1942 

and.l 

d0,d1 

Bits 0 und 1 des Zählers Isolieren 

1944 

bne 

F818B4 

nicht = 0: Neuer Versuch -> 

1948 

move.l 

a2,-(a7) 

Adresse des Stackrahmens übergeben 

194A 

Jsr 

Fe0C4E 

—> Kopf auf Spur 0 setzen 

1950 

addq.l 

/4.a7 

Stackzeiger korrigieren 

1952 

1956 

bra 

F818B4 

—> Neuer Versuch 

1956 F81956 

195A 

195C 

moven.l 

rts 

(a7)+,d2-d6/a2 

Register uiederherstellen 

195C ;- 

195C 

BltPlane-Daten für Fehlergraphik 

195C F8195C 

DC.H 

FFFF.J 


1960 

DC.M 

5C,82,5C,71,9A,6,A7 

6.E5.71,E5.82,5C,82 

197C 

DC.U 

FFFF.J 


1980 

DC.U 

64.7D,64,71.9D,D,A4 

.D.DD.71.DD,7D.64.7D 

199C 

DC.U 

FFFE.0 


19A0 

DC.U 

5D,81 


19A4 

DC.U 

FFFF.2 


19A8 

DC.U 

9C,65.A5.65,AD.25.A6,1E,9B,1E.94,25.9C.65 

19C4 

DC.U 

FFFE,0 


19C8 

DC.U 

9D.64 


19CC 

DC.U 

FFFF,2 


19D0 

DC.U 

9B,6F.9B,74.9E,77.AJ,77,A6.74,A6.6F,A3.6C.9E,6C,9B,6F 

19F4 

DC.U 

FFFE,0 


19F8 

DC.U 

9E,74 


19FC 

1A00 

DC.U 

FFFF.FFFF 


1A00 ;- 

1A00 

BltPlane-Daten für Hand mit 

Kickstart-Dlsk 

1A00 F81A00 

DC.U 

FFFF.I 


1A04 

DC.U 

69.35,80,35.80,49.B7,49.B7.55.C5.33,CE.JE.CE.86 

1A24 

DC.H 

C5,86,C5,60,86,60.84.5E,7B,5E,7A,60,73.60,73.69 

1A44 

DC.H 

69,70,69.33 


1A4C 

DC.U 

FFFF.2 


1A50 

DC.H 

96,4A,96,5F 
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1A58 

DC.U 

FFFE.0 

1A5C 

DC.U 

6B,6D 

1A60 

DC.W 

FFFE.0 

1A64 

DC.U 

97,5F 

1A68 

DC.U 

FFFF,1 

1A6C 

DC.U 

67,70.67,32,C4.52,D0,5E,D0,87.9C,87,9C,8C,98.94 

1A8C 

DC.U 

94.99.90,9C,8A,A5,82.A9.82,B4.50,B4.50.95.4F,95 

1AAC 

DC.U 

4F,79,53,7J,5A,6D.5B.69,5F.62,64.5F.67.5E,67,5E 

1ACC 

DC.U 

64.60.60,62.5C.69.5B,6D.54.75,50.79,50,94,51.95 

1AEC 

DC.U 

51.B5.6E,B5.6E,9E,76,9E.7A,9A.7A,87.78.84,78.7A 

168C 

DC.U 

87.6D,87.61,84.5F,81,5F,84,62,84,69.85,6A.7C.6A 

1B2C 

DC.U 

79.67,70,6E,64.74,58,7D,58,7C.64,75.60,72,5D,6F 

1B4C 

DC.U 

60.71,64,72.67,70 

1B98 

DC.U 

FFFF.I 

1B5C 

DC.U 

78,65,7A,5E.82,5F,85,62,85,69.7C.69.78,65 

1B78 

DC.U 

FFFF.I 

1B7C 

DC.U 

79,84.79.7A,88,60,88,61.C5.61,C5.86,7A,86.79.82 

1B9C 

DC.U 

FFFF.I 

1BA8 

DC.U 

82.55,85.55,85.48.82.48.82,55 

1BB4 

DC.U 

FFFF, 1 

1BB8 

DC.U 

A6.56,B1.56.B1.44.A6.44,A6,56 

1BCC 

DC.U 

FFFF, 5 

1BD0 

DC.U 

84,46 

1B04 

DC.U 

FFFE.0 

1BD8 

DC.U 

84,47 

1BDC 

DC.U 

FFFF.I 

1BE8 

DC.U 

A8.57,AF,57,AF.45.A8,45.A8,57 

1BF4 

DC.U 

FFFF, 2 

1BF8 

DC.U 

A7,45 

1BFC 

DC.U 

FFFE,0 

1C80 

DC.U 

A9.42 

1C04 

DC.U 

FFFF.I 

1C08 

DC.U 

75.61.78,61.78.65,75,67.75.61 

1C1C 

DC.U 

FFFF.I 

1C20 

DC.U 

6F.B5,6F,9F.76.9F.7B,9A.7B,91.7F.95.87.95,87,95 

1C40 

DC.U 

8B.9A,8F.9A,8F.9C,89,A5.81.A8.81.B5.6F.B5 

1C5C 

DC.U 

FFFF.I 

1C60 

DC.U 

7B,87,7B.8C,80,89,78,87 

1C70 

DC.U 

FFFF.I 

1C74 

DC.U 

7F,8A.7B,8C,7B,87,90,87,86,91,85,91,87.8F.82,8A 
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1C94 

DC.W 

7F.8A 

1C98 

DC.H 

FFFF,1 

1C9C 

DC.U 

94.87.9B,87.9B,8C.97,94.94,98.8F.99,8C,99,89,95 

1CBC 

DC.H 

89.92,94,87 

1CC4 

DC.U 

FFFF.1 

1CC8 

DC.U 

8A,92,8A.95,8C.98.8E,98,92.97.95.94.8F,91,8A,92 

1CE8 

DC.U 

FFFF.1 

1CEC 

DC.H 

7C,90,84,92,86,8F,82.8B,7F,8B.7C.8D.7C.90 

1D88 

DC.U 

FFFF.1 

1D8C 

DC.U 

C4.JJ.CF.JE.CF,86 

1D18 

DC.U 

FFFE,0 

1D1C 

DC.U 

68,53 

1D2I9 

DC.U 

FFFE,0 

1D24 

DC.U 

81.33 

1D28 

DC.U 

FFFE,0 

1D2C 

DC.H 

A7.37 

1D50 

DC.U 

FFFE,0 

1DJ4 

DC.U 

CF, 43 

1D58 

DC.U 

FFFE.0 

1D3C 

DC.U 

B6,37 

1D40 

DC.U 

FFFE,0 

1D44 

DC.U 

CF,3E 

1D48 

DC.U 

FFFE.0 

1D4C 

DC.U 

C4,86 

1D90 

DC.U 

FFFE,0 

1D54 

DC.U 

91,88 

1D58 

DC.U 

FFFE.0 

1D5C 

DC.U 

74,61 

1D60 

DC.U 

FFFC.5.8,9B7F ; ’AHIGA’ Muster 1 

1D68 

DC.U 

1001,8220,4030,4,0 

1D72 

DC.U 

404.8889.1210,5010.0 

1D7C 

DC.U 

408,2448,1090,1020,0 

1D86 

DC.U 

410,1042,510,1040,0 

1D90 

DC.U 

420,50,2690,1080,0 

1D9A 

DC.H 

440,484,900,1100,0 

1DA4 

DC.U 

480,4960.4208.1200.0 

1DAE 

DC.U 

500,683,8404,1400,0 

1DB8 

DC.U 

FFFD.5,8.9B7F j 'AMIGA' Muster 2 

1DC0 

DC.U 

1F9F.FE3F,FF77.FE7C,0 

1DCA 

DC.U 

70C,EF8F,1E71,DC30,0 
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1DD4 DC.U 7F8,E7CE.1CF5.1FE0.0 

1DDE DC.H 751,F3CE.1DF6.1CC0,0 

1DE8 DC.W 760.3DC.3FFC,1D80.0 

1DF2 DC.H 7C0,879C,JF78.1F00.0 

1DFC DC.H 780.CF78,7E78,1E00,0 

1E06 DC.H 700,FEFF,FC7C.1C00,0 

1E10 DC.H FFFC,5,7,8F10 ; ’Klck’ 

1E18 DC.H C71F,1E65.8000 

1E1E DC.H 6631,8C63.0 

1E24 DC.H 5E01,8C35,0 

1E2A DC.H 66J1.8C1F,0 

1E30 DC.H C61F,E5J,0 

1E36 DC.H 600,63,0 

1E3C DC.H 700,C63,8000 

1E42 DC.H FFFC,4,7,828C ; 'starf 

1E4A DC.H 701E,6F0E,FC0,0 

1E52 DC.H 980C,319E,1800,0 

1E5A DC.H 198C,3E03,F80,0 

1E62 DC.H 199C,3003,C0,0 

1E6A DC.H 7CEE,1F0F,1F80,0 

1E72 DC.H 1800,3,0,0 

1E7A DC.H 1000,2,0,0 

1E82 DC.H FFFF,FFFF 

1E86 

1E86 »»•»*»»»»»»»»»»«»«»*» Ende von ROH Bootstrap »»»»»»**»»)»»»»)<»»»»«»»»«»»* 
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Vorankündigung: 


COMMODORE 

AMia 



DR. RUPRECHT 


j^MMENTI^^ 

TSSTTisting" 


Band 2 

Resources u. Devices 


Eine Dokumentation aller Resources 
und der wesentlichen Devices des 
Amiga-Betriebssystems. 

Dazu gehören die Beschreibungen der 
Devices: 

Disk, Keybord, Gameport (Maus u. 
Joystick), Input, Console, Track-Disk 
u. Timer. 

Dieser Band erscheint im Herbst 1987. 


Vertrieb: BIOSYSTEMS SRI GmbH, 

Hansjakobstr.122 • 8 München 82 
und Mediscript-Verlag München. 








COMMODORE 


AMIGAdt 





DR. RUPRECHT 


und mit Kommentaren 
versehen und damit das, 
was im Amiga-Betriebs- 
system abläuft, transparent 
und nachvollziehbar gemacht. 

Dazu gehört auch die Be¬ 
schreibung der in diesem Be¬ 
reich abgelegten Routinen 
für Multitasking des Commo- 
dore Amiga. 

Dieses vorliegende 
ROM LISTiNG behandelt den 


Der Autor Dr. Ruprecht gilt 
als einer der anerkanntesten 
Kenner der Commodore 
Betriebssysteme. Zu fast allen 
Commodore-Geräten hat er 
umfangreiche Betriebs¬ 
system-Dokumentationen 
erarbeitet und veröffentlicht. 

Beim legendären CBM 8096 
war er selbst maßgeblich an 
der Entwicklung des Betriebs¬ 
systems LOS 96 beteiligt. 

Byte für Byte hat der Autor 
die jeweiligen Stellen des 
Betriebssystems aufgelistet 


Betriebssystembereich der 
Kickstart-Ebene mit EXEC, 
BOOT ROM und DOS-BOOT. 

Ein unentbehrliches 
Sachbuch und Nach¬ 
schlagewerk für jeden, der 
sich professionell mit dem 
Amiga beschäftigt. 
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